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 -N -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]
Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -N -r1.22.2.15 -r1.22.2.16
--- openacs-4/packages/xotcl-core/www/show-object.tcl	25 Jan 2016 07:05:39 -0000	1.22.2.15
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	29 Feb 2016 09:15:20 -0000	1.22.2.16
@@ -371,7 +371,7 @@
 
 if {$show_variables && !$isnx} {
   set vars ""
-  foreach v [lsort [DO $object info vars]] {
+  foreach v [lsort [DO ::xo::getObjectProperty $object vars]] {
     if {[DO ::xo::getObjectProperty $object array-exists $v]} {
       append vars "$object array set $v [list [DO ::xo::getObjectProperty $object array-get $v]]\n"
     } else {