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.72.2.19 -r1.72.2.20
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Sep 2014 20:07:55 -0000	1.72.2.19
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Sep 2014 20:10:55 -0000	1.72.2.20
@@ -903,7 +903,7 @@
     }
     "subclass" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info subclass]}
-      return [$o info $::xo::mapMethodNames(subclasses)]]
+      return [$o info $::xo::mapMethodNames(subclasses)]
     }
     "parameter" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info parameter]}