Index: tol/stdlib/general/alg_name/algebragui.tol
===================================================================
--- tol/stdlib/general/alg_name/algebragui.tol	(revision ab2f6942f6cc27a5b2fcb74a996098cc0ec2dbeb)
+++ tol/stdlib/general/alg_name/algebragui.tol	(revision cf6d1c6780d559d7f5c1b267d1cf7345bf3840c3)
@@ -24,5 +24,5 @@
   );
   Set tclSet         = tclSetPre << algDef->TclSet;
-  TxtListTcl(SetSum(tclSet))
+  TxtListTcl(BinGroup("+",tclSet))
 };
 //////////////////////////////////////////////////////////////////////////////
@@ -200,5 +200,5 @@
 { 
   Set tclSet = AlgDefGetReg(codMag, algDef)->TclSet;
-  Text If(IsEmpty(tclSet), "",  TxtListTcl(SetSum(tclSet)))
+  Text If(IsEmpty(tclSet), "",  TxtListTcl(BinGroup("+",tclSet)))
 };
 //////////////////////////////////////////////////////////////////////////////
@@ -221,5 +221,5 @@
   Text If(IsEmpty(node), "", {
     Set tclSet = node[1]->TclSet;
-    If(IsEmpty(tclSet), "", TxtListTcl(SetSum(tclSet)))
+    If(IsEmpty(tclSet), "", TxtListTcl(BinGroup("+",tclSet)))
   })
 };