Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -N -r1.125 -r1.126
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	7 Feb 2019 22:31:38 -0000	1.125
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	8 Feb 2019 15:04:30 -0000	1.126
@@ -1642,7 +1642,7 @@
         if { ![info exists column_set] } {
             set set_array [ns_set array $selection]
             if { [info exists column_array] } {
-                unser -nocomplain array_val
+                unset -nocomplain array_val
                 array set array_val $set_array
             } else {
                 foreach {a v} $set_array { uplevel [list set $a $v] }