Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -N -r1.93.2.61 -r1.93.2.62
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	13 Jun 2023 15:26:19 -0000	1.93.2.61
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	22 Oct 2023 15:58:07 -0000	1.93.2.62
@@ -575,12 +575,10 @@
     # things might go wrong. The test is quite cheap an can reduce
     # debugging time on some sites.
     #
-    if {[nsf::is object ::xo::cc]} {
-      if {![info exists ::xo::cleanup(::xo::cc)]} {
-        ns_log notice [::xo::cc serialize]
-        ns_log error "no cleanup for ::xo::cc registered"
-        ::xo::cc destroy
-      }
+    if {[nsf::is object ::xo::cc] && ![info exists ::xo::cleanup(::xo::cc)]} {
+      ns_log notice [::xo::cc serialize]
+      ns_log error "no cleanup for ::xo::cc registered"
+      ::xo::cc destroy
     }
     ::xo::dc profile off
     ::xo::broadcast receive