Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	17 May 2003 10:05:27 -0000	1.10
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	28 Aug 2003 09:41:45 -0000	1.11
@@ -218,7 +218,7 @@
         set ${name}(groupnum_last_p) 1
       } else {
         upvar 0 ${name}:\[expr \$$i + 1\] $name:next 
-        set ${name}(groupnum_last_p) \[expr !\[string equal \${${name}:next($column)} \$${name}($column)\]\]
+        set ${name}(groupnum_last_p) \[expr !\[string equal \[set \"${name}:next(${column})\"\] \$${name}($column)\]\]
       }
   "
 
@@ -231,7 +231,7 @@
         break
       }
       upvar 0 ${name}:\[expr \$$i + 1\] $name:next 
-      if { !\[string equal \${${name}:next($column)} \$${name}($column)\] } { 
+      if { !\[string equal \[set \"${name}:next(${column})\"\] \$${name}(${column})\] } { 
         break
       }
       incr $i