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 -r1.29 -r1.30
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Oct 2008 13:40:48 -0000	1.29
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Oct 2008 13:43:56 -0000	1.30
@@ -359,9 +359,10 @@
           ns_log notice "... analyze: precedence [$obj info precedence]"
           ns_log notice "... analyze: methods [lsort [$obj info methods]]"
           #
-          # In case, we want to destroy some objects, and the destructor fails,
-          # make sure to destroy them even then. We reclass the object to something
-          # the base classen and try again.
+          # In case, we want to destroy some objects, and the
+          # destructor fails, make sure to destroy them even
+          # then. Half-deleted zombies can produce harm. We reclass
+          # the object to the base classe and try again.
           #
           if {[lindex $cmd 1] eq "destroy"} {
             ns_log error "... forcing object destroy without application level destuctors"