Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl,v
diff -u -r1.1.2.52 -r1.1.2.53
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	10 Aug 2024 14:47:42 -0000	1.1.2.52
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	16 Aug 2024 07:01:22 -0000	1.1.2.53
@@ -2189,7 +2189,7 @@
     # Otherwise, it's the last row in the group if the next row has a
     # different value than this row
     set next_value [lindex $next_row $pos]
-    return [expr {$next_value eq $column_value}]
+    return [expr {$next_value ne $column_value}]
 }