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.44 -r1.45
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2010 10:34:57 -0000	1.44
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 Mar 2010 10:36:13 -0000	1.45
@@ -5,13 +5,15 @@
 
 ::Serializer exportMethods {
   ::xotcl::Object instproc log 
+  ::xotcl::Object instproc ds
   ::xotcl::Object instproc msg
   ::xotcl::Object instproc __timediff
   ::xotcl::Object instproc debug
   ::xotcl::Object instproc qn
   ::xotcl::Object instproc serialize
   ::xotcl::Object instforward db_1row
   ::xotcl::Object instproc destroy_on_cleanup
+  ::xotcl::Object instproc set_instance_vars_defaults
   ::xotcl::nonposArgs proc integer
   ::xotcl::nonposArgs proc optional
 }
@@ -70,6 +72,21 @@
   ::xotcl::alias ::xo::Attribute instvar ::xotcl::cmd::Object::instvar
   ::xotcl::alias ::xo::Attribute set -objscope ::set
   ::xotcl::Slot method istype {class}  {::xotcl::is [self] type $class}
+  ::xotcl2::Object method serialize {} { ::Serializer deepSerialize [self] }
+  ::xotcl2::Object method set_instance_vars_defaults {} {:configure}
+  ::xotcl::Object  method set_instance_vars_defaults {} {:configure}
+
+  ::Serializer exportMethods {
+    ::xotcl2::Object method serialize
+    ::xotcl2::Object method set_instance_vars_defaults
+    ::xotcl::Slot method istype
+  }
+
+} else {
+  ::xotcl::Object instproc set_instance_vars_defaults {} {
+    set pcl [[my info class] info parameterclass]
+    $pcl searchDefaults [self]
+  }
 }
 
 namespace eval ::xo {