Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	11 Sep 2024 06:15:56 -0000	1.78
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Oct 2024 15:09:25 -0000	1.79
@@ -414,7 +414,7 @@
     #
     # Keep "long_text_slots" in a separate array (for Oracle)
     #
-    :array unset long_text_slots
+    unset -nocomplain :long_text_slots
     foreach {slot_name slot} [array get :db_slot] {
       if {[$slot sqltype] eq "long_text"} {
         set :long_text_slots($slot_name) $slot
@@ -1934,7 +1934,7 @@
     foreach x $non_cached_vars {
       if {[array exists :$x]} {
         lappend arrays $x [array get :$x]
-        array unset :$x
+        unset :$x
       } {
         lappend scalars $x [set :$x]
         unset -nocomplain :$x