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.46 -r1.47
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 Aug 2010 12:04:05 -0000	1.46
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Aug 2010 12:47:30 -0000	1.47
@@ -81,6 +81,7 @@
     ::nx::Object method serialize
     ::nx::Object method set_instance_vars_defaults
     ::nx::Slot method istype
+    ::nx::Slot method exists
   }
 
 } else {
@@ -457,7 +458,7 @@
     } else {
       # Delete the objects and classes manually
       set objs [::xotcl::Object allinstances]
-      ns_log notice "deleting [llength $objs] objects"
+      ns_log notice "no finalize available, deleting [llength $objs] objects"
       foreach o $objs {
         if {![::xotcl::Object isobject $o]} continue
         if {[$o istype ::xotcl::Class]} continue