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.54 -r1.55
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2011 08:03:28 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2011 10:30:48 -0000	1.55
@@ -82,13 +82,15 @@
   ::nx::Slot public method exists {var}   {::nsf::existsvar [self] $var}
   ::nx::Object public method serialize {} {::Serializer deepSerialize [self]}
   ::nx::Object method set_instance_vars_defaults {} {:configure}
+  ::nx::Object public method destroy_on_cleanup {} {set ::xo::cleanup([self]) [list [self] destroy]}
   ::xotcl::Object instproc set_instance_vars_defaults {} {:configure}
   ::xotcl::Object proc setExitHandler {code} {::nsf::exithandler set $code}
 
   ::Serializer exportMethods {
     ::nx::Object method serialize
     ::nx::Object method show-object
     ::nx::Object method set_instance_vars_defaults
+    ::nx::Object method destroy_on_cleanup
     ::nx::Slot method istype
     ::nx::Slot method exists
     ::nx::Slot method set
@@ -136,10 +138,10 @@
   # Allow to show an arbitrary object via API-browser.  Per-default,
   # e.g. site-wide can use e.g. /xowiki/index?m=show-object
   #
-  rp_form_put object [self]
-  rp_form_put show_methods 2
-  rp_form_put show_source 1
-  rp_form_put show_variables 1
+  rp_form_update object [self]
+  rp_form_update show_source    [::xo::cc query_parameter "show_source" 1]
+  rp_form_update show_methods   [::xo::cc query_parameter "show_methods" 2]
+  rp_form_update show_variables [::xo::cc query_parameter "show_variables" 1]
   rp_internal_redirect /packages/xotcl-core/www/show-object
 }