Index: openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl,v
diff -u -r1.27.2.3 -r1.27.2.4
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	8 May 2019 14:30:45 -0000	1.27.2.3
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	23 Jul 2019 16:54:51 -0000	1.27.2.4
@@ -80,7 +80,7 @@
     if {[info exists :__children]} {
       #:log "--W destroying children ${:__children}"
       foreach c ${:__children} { 
-        if {[:isobject $c]} {$c destroy}
+        if {[nsf::is object $c]} {$c destroy}
       }
     }
     #show_stack;:log "--W children murdered, now next, chlds=[:info children]"