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 -N -r1.33 -r1.34
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	16 Nov 2008 00:43:29 -0000	1.33
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 Nov 2008 00:01:32 -0000	1.34
@@ -414,12 +414,12 @@
       foreach o $objs {
         if {![::xotcl::Object isobject $o]} continue
         if {[$o istype ::xotcl::Class]} continue
-        $o destroy
+        catch {$o destroy} errorMsg
       }
       foreach o [::xotcl::Class allinstances] {
         if {![::xotcl::Object isobject $o]} continue
         if {$o eq "::xotcl::Object" || $o eq "::xotcl::Class"} continue
-        $o destroy
+        catch {$o destroy} errorMsg
       }
     }
     set t1 [clock clicks -milliseconds]