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 -r1.93.2.47 -r1.93.2.48
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Feb 2022 19:51:25 -0000	1.93.2.47
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Feb 2022 16:56:58 -0000	1.93.2.48
@@ -573,7 +573,7 @@
     # things might go wrong. The test is quite cheap an can reduce
     # debugging time on some sites.
     #
-    if {[info commands ::xo::cc] ne ""} {
+    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"