--- loncom/xml/algebra/AlgParser.pm	2006/03/13 19:23:46	1.15
+++ loncom/xml/algebra/AlgParser.pm	2006/03/13 20:28:53	1.16
@@ -487,19 +487,19 @@ sub tostring {
   $_ = $type;
   /binop1/ && do {
     my ($p1, $p2) = ('','');
-    if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ [ ] };}
+    if ($args[2]->[0] eq 'binop1') {($p1,$p2)=qw{ ( ) };}
     return ($args[1]->tostring() . $args[0] . $p1 .
             $args[2]->tostring() . $p2);
   };
   /unop1/ && do {
     my ($p1, $p2) = ('','');
-    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
+    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}
     return ($args[0] . $p1 . $args[1]->tostring() . $p2);
   };
   /binop2/ && do {
     my ($p1, $p2, $p3, $p4)=('','','','');
     if ($args[0] =~ /implicit/) {$args[0] = ' ';}
-    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ [ ] };}
+    if ($args[1]->[0] =~ /binop1/) {($p1,$p2)=qw{ ( ) };}
 #    if ($args[2]->[0] =~ /binop[12]/) {($p3,$p4)=qw{ ( ) };}
     if ($args[2]->[0] =~ /binop[12]|unop1/) {($p3,$p4)=qw{ ( ) };}
     return ($p1 . $args[1]->tostring() . $p2 . $args[0] . $p3 .