Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/01-database-procs.tcl,v
diff -u -r1.1.2.48 -r1.1.2.49
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	21 Feb 2023 10:53:35 -0000	1.1.2.48
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	21 Feb 2023 10:59:22 -0000	1.1.2.49
@@ -1638,7 +1638,7 @@
             # ns_set
             #
             if { [info exists selection] } {
-               ns_set free selection
+               ns_set free $selection
             }
             set selection [ns_set create]
             foreach a $columns v $tuple { ns_set put $selection $a $v }