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.48 -r1.49
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	8 Aug 2010 10:46:50 -0000	1.48
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Aug 2010 09:57:46 -0000	1.49
@@ -75,6 +75,7 @@
   ::nx::Slot method exists {var}   {::nx::core::existsvar [self] $var}
   ::nx::Object method serialize {} {::Serializer deepSerialize [self]}
   ::nx::Object method set_instance_vars_defaults {} {:configure}
+  ::xotcl::Object instproc set_instance_vars_defaults {} {:configure}
 
   ::Serializer exportMethods {
     ::nx::Object method serialize