Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.74 -r1.75
--- openacs-4/packages/xotcl-core/xotcl-core.info	12 Dec 2009 10:48:20 -0000	1.74
+++ openacs-4/packages/xotcl-core/xotcl-core.info	4 Mar 2010 10:36:13 -0000	1.75
@@ -10,10 +10,10 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.111" url="http://media.wu-wien.ac.at/download/xotcl-core-0.111.apm">
+    <version name="0.112" url="http://media.wu-wien.ac.at/download/xotcl-core-0.112.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2009-12-12</release-date>
+        <release-date>2010-03-04</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OpenACS
 applications using XOTcl. It includes
@@ -43,11 +43,11 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.111"/>
+        <provides url="xotcl-core" version="0.112"/>
 
         <callbacks>
-            <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
             <callback type="before-install"  proc="::xotcl-core::before_install_callback"/>
+            <callback type="after-upgrade"  proc="::xotcl-core::after_upgrade_callback"/>
         </callbacks>
         <parameters>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="NslogRedirector"  default="0" description="Allow redirections of nslog. The redirector filters ns_log messages and sends these not only to the error log (standard behaviour) but also to ds_comments in the developer support. This way, a developer can view the log messages for the current request directly in the browser when the developer support is activated, without having to watch the log file. 
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 {
Index: openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl	26 Jan 2006 01:23:51 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/10-recreation-procs.tcl	4 Mar 2010 10:36:13 -0000	1.8
@@ -66,9 +66,8 @@
 	if {[my exists instreconfigure]} {
 	  # before we set defaults, we must unset vars
 	  foreach var [$obj info vars] {$obj unset $var}
-	  set pcl [my info parameterclass]
 	  # set defaults and run configure
-	  $pcl searchDefaults $obj
+          $obj set_instance_vars_defaults
 	  eval $obj configure $args
 	  #my log "### instproc recreate $obj + configure $args ..."
 	}
@@ -85,9 +84,8 @@
 	if {[my exists reconfigure]} {
 	  # before we set defaults, we must unset vars
 	  foreach var [$obj info vars] {$obj unset $var}
-	  set pcl [my info parameterclass]
-	  $pcl searchDefaults $obj
 	  # set defaults and run configure
+          $obj set_instance_vars_defaults
 	  eval $obj configure $args
 	}
 	if {[my exists reinit]} {
@@ -148,8 +146,8 @@
     }
     # set p new values
     $obj class $cl 
-    set pcl [$cl info parameterclass]
-    $pcl searchDefaults $obj
+    $obj set_instance_vars_defaults
+
     # we use uplevel to handle -volatile correctly
     set pos [my uplevel $obj configure $args]
     if {[lsearch -exact $args -init] == -1} {