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 {