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.9 -r1.78.2.10
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	7 Jan 2016 13:32:02 -0000	1.78.2.9
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2016 08:01:12 -0000	1.78.2.10
@@ -759,12 +759,10 @@
 proc ::xo::getObjectProperty {o what args} {
   switch $what {
     "mixin" {
-      if {"::xotcl::Object" in [$o info precedence]} {return [$o info mixin]}
-      return [$o info object {*}$::xo::mapMethodNames(mixins)]
+      return [$o ::nsf::methods::object::info::mixins]
     }
     "instmixin" {
-      if {"::xotcl::Object" in [$o info precedence]} {return [$o info instmixin]}
-      return [$o info {*}$::xo::mapMethodNames(mixins)]
+      return [$o ::nsf::methods::class::info::mixins]
     }
     "instproc" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}$args]}
@@ -789,8 +787,6 @@
       return [$o info object methods -type scripted {*}$args]
     }
     "command" {
-      #if {"::xotcl::Object" in [$o info precedence]} {return [$o info procs {*}$args]}
-      #return [$o info object methods {*}$args]
       return [$o ::nsf::methods::object::info::methods {*}$args]
     }
     "forward" {
@@ -803,7 +799,7 @@
     }
     "class" {
       #if {"::xotcl::Object" in [$o info precedence]} {return [$o info class]}
-      return [$o info class]
+      return [$o ::nsf::methods::object::info::class]
     }
     "superclass" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info superclass]}
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.12 -r1.22.2.13
--- openacs-4/packages/xotcl-core/www/show-object.tcl	6 Jan 2016 22:36:41 -0000	1.22.2.12
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	14 Jan 2016 08:01:13 -0000	1.22.2.13
@@ -46,12 +46,10 @@
 
 interp alias {} DO {} ::xo::api scope_eval $scope 
 
-set my_class [DO $object info class]
+set my_class [DO xo::getObjectProperty $object class]
 set title "$my_class $object"
 set isclass [::xo::api isclass $scope $object]
-
-set isnx [xo::getObjectProperty $object isnxobject]
-
+set isnx [DO xo::getObjectProperty $object isnxobject]
 set s [DO Serializer new]
 
 set dimensional_slider [ad_dimensional {
@@ -330,7 +328,7 @@
     }
     if {$method_output ne ""} {
       append output \
-          "<h3>Methods (to be applied on the object) //$methods</h3>\n" \
+          "<h3>Methods (to be applied on the object)</h3>\n" \
           <ul> \n $method_output </ul> \n
     }
   }