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.5.2.2 -r1.5.2.3
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	5 Mar 2003 14:57:37 -0000	1.5.2.2
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	15 May 2003 07:29:13 -0000	1.5.2.3
@@ -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