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 -N -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	19 Jan 2006 22:57:37 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	17 Aug 2006 01:27:54 -0000	1.6
@@ -56,7 +56,7 @@
   OrderedComposite instproc destroy {} {
     # destroy all children of the ordered composite
     if {[my exists __children]} {
-      #my log "-- destroying children [my set __children]"
+      #my log "--W destroying children [my set __children]"
       foreach c [my set __children] { $c destroy }
     }
     #show_stack;my log "-- children murdered, now next, chlds=[my info children]"