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.10 -r1.78.2.11
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2016 08:01:12 -0000	1.78.2.10
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	14 Jan 2016 08:16:02 -0000	1.78.2.11
@@ -764,6 +764,13 @@
     "instmixin" {
       return [$o ::nsf::methods::class::info::mixins]
     }
+    "mixinof" {
+      return [$o ::nsf::methods::class::info::mixinof -scope object]
+    }
+    "instmixinof" {
+      return [$o ::nsf::methods::class::info::mixinof -scope class]
+    }
+
     "instproc" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}$args]}
       return [$o info methods -type scripted -callprotection all {*}$args]
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 -r1.22.2.13 -r1.22.2.14
--- openacs-4/packages/xotcl-core/www/show-object.tcl	14 Jan 2016 08:01:13 -0000	1.22.2.13
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	14 Jan 2016 08:16:02 -0000	1.22.2.14
@@ -282,6 +282,8 @@
       [class_relation $scope $object instmixin]
 
   class_relation $scope $object subclass
+  class_relation $scope $object instmixinof
+  class_relation $scope $object mixinof
 }
 
 append obj_create_source \