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.78.2.12 -r1.78.2.13
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	2 Feb 2016 14:50:34 -0000	1.78.2.12
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Feb 2016 09:15:20 -0000	1.78.2.13
@@ -910,6 +910,10 @@
       if {"::xotcl::Object" in [$o info precedence]} {return [$o set {*}$args]}
       return [$o eval [list set :[lindex $args 0]]]
     }
+    "vars" {
+      return [$o ::nsf::methods::object::info::vars]
+    }
+
     "isnxobject" {
       if {[info commands ::nsf::dispatch] ne "" && [info commands $o] ne ""} {
         return [::nsf::dispatch $o ::nsf::methods::object::info::hastype ::nx::Object]