Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.65 -r1.148.2.66
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Jan 2023 10:52:43 -0000	1.148.2.65
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Jan 2023 11:30:09 -0000	1.148.2.66
@@ -582,7 +582,7 @@
     }
 
     set multirow_size [::template::multirow -local -ulevel $level_up size $var_name]
-    set i [expr {$multirow_size == 0 ? 1 : $multirow_size + 1}]
+    set i [expr {$multirow_size + 1}]
 
     db_with_handle -dbn $dbn db {
       if {[info exists prepare]} {set sql [:prepare -handle $db -argtypes $prepare $sql]}