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.68 -r1.148.2.69
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Jan 2023 14:42:13 -0000	1.148.2.68
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Jan 2023 16:23:08 -0000	1.148.2.69
@@ -601,7 +601,7 @@
       }
 
       while { [::db_getrow $db $answers] } {
-        if {[llength $body] > 0} {
+        if {[string length $body] > 0} {
           #
           # We have a code to execute. Bring all of the multirow
           # variables in scope.