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]}