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.62 -r1.63
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	5 Sep 2011 19:48:35 -0000	1.62
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	10 Apr 2012 09:24:31 -0000	1.63
@@ -13,6 +13,7 @@
   ::xotcl::Object instproc serialize
   ::xotcl::Object instproc show-object
   ::xotcl::Object instforward db_1row
+  ::xotcl::Object instforward db_0or1row
   ::xotcl::Object instproc destroy_on_cleanup
   ::xotcl::Object instproc set_instance_vars_defaults
   ::xotcl::nonposArgs proc integer
@@ -132,6 +133,7 @@
 }
 
 ::xotcl::Object instforward db_1row -objscope
+::xotcl::Object instforward db_0or1row -objscope
 
 ::xotcl::Object instproc serialize {} {
   ::Serializer deepSerialize [self]