Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -r1.24.2.1 -r1.24.2.2
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	8 May 2019 14:22:02 -0000	1.24.2.1
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	23 Jul 2019 17:06:23 -0000	1.24.2.2
@@ -269,7 +269,7 @@
       # Try to get the package id; if everything fails, use kernel_id
       # (to be compatible with traditional parameter::get)
       #
-      set package_id [expr {[info commands ::xo::cc] ne "" ? 
+      set package_id [expr {[nsf::is object ::xo::cc] ? 
                             [::xo::cc package_id] : 
                             [ns_conn isconnected] ? [ad_conn package_id] : [ad_acs_kernel_id]}]
     }