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.84 -r1.148.2.85
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Oct 2023 16:12:35 -0000	1.148.2.84
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	25 Oct 2023 09:31:15 -0000	1.148.2.85
@@ -511,6 +511,7 @@
       while { [::db_getrow $db $answers] } {
         lappend result [ns_set copy $answers]
       }
+      ns_set free $answers
     }
     return $result
   }
@@ -2632,7 +2633,7 @@
       }
       $o mset [ns_set array $selection]
       ns_set free $selection
-      
+
       if {[$o exists object_type]} {
         #
         # Set the object type if it looks like managed from XOTcl.