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.78 -r1.148.2.79
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	26 Jan 2023 14:25:49 -0000	1.148.2.78
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Feb 2023 13:40:06 -0000	1.148.2.79
@@ -634,7 +634,9 @@
         # Collect the values after the code has been executed.
         #
         set values [lmap att $cols {
-          expr {[uplevel 1 [list info exists $att]] ? [uplevel 1 [list set $att]] : ""}
+          if {[uplevel 1 [list info exists $att]]} {
+            uplevel 1 [list set $att]
+          }
         }]
       } else {
         #