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.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"