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.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	18 May 2007 09:01:22 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	31 May 2007 20:17:34 -0000	1.11
@@ -61,7 +61,9 @@
     # destroy all children of the ordered composite
     if {[my exists __children]} {
       #my log "--W destroying children [my set __children]"
-      foreach c [my set __children] { $c destroy }
+      foreach c [my set __children] { 
+	if {[my isobject $c]} {$c destroy}
+      }
     }
     #show_stack;my log "--W children murdered, now next, chlds=[my info children]"
     namespace eval [self] {namespace forget *}  ;# for pre 1.4.0 versions
Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	2 Apr 2007 09:09:17 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	31 May 2007 20:17:34 -0000	1.6
@@ -85,9 +85,9 @@
 
 ::xotcl::Object setExitHandler {
   #my log "EXITHANDLER of request thread [pid]"
-  if {[catch {Proxy detachAll} m]} {
-    #my log "EXITHANDLER error in detachAll $m"
-  }
+  #if {[catch {::xotcl::THREAD::Proxy detachAll} m]} {
+  #  #my log "EXITHANDLER error in detachAll $m"
+  #}
 }
 
 ::Serializer exportObjects {