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.69 -r1.148.2.70
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Jan 2023 16:23:08 -0000	1.148.2.69
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	17 Jan 2023 09:54:14 -0000	1.148.2.70
@@ -575,19 +575,13 @@
     if {$sql eq ""} {set sql [:get_sql $qn]}
     if {$bind ne ""} {set bindOpt [list -bind $bind]} {set bindOpt ""}
 
-    set multirow_exists_p [::template::multirow -local -ulevel $level_up exists $var_name]
-
-    if {$multirow_exists_p && [llength $extend] > 0} {
-      ::template::multirow -local -ulevel $level_up extend $var_name {*}$extend
-    }
-
     db_with_handle -dbn $dbn db {
       if {[info exists prepare]} {set sql [:prepare -handle $db -argtypes $prepare $sql]}
       set result [list]
 
       set answers [uplevel 1 [list ns_pg_bind select $db {*}$bindOpt $sql]]
       set cols [concat [ns_set keys $answers] $extend]
-      if {$multirow_exists_p} {
+      if {[::template::multirow -local -ulevel $level_up exists $var_name]} {
         #
         # We enforce here, that appending to an existing multirow
         # can only happen when we are extracting the same columns.