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.6 -r1.72.2.7
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	30 Sep 2013 11:38:40 -0000	1.72.2.6
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Oct 2013 10:19:58 -0000	1.72.2.7
@@ -794,28 +794,28 @@
 	    return [$o info mixin classes]
 	}
 	"instproc" {
-	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}args]}
-	    return [$o info methods -type scripted {*}args]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}$args]}
+	    return [$o info methods -type scripted {*}$args]
 	}
 	"instcommand" {
-	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instcommands {*}args]}
-	    return [$o info methods {*}args]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instcommands {*}$args]}
+	    return [$o info methods {*}$args]
 	}
 	"instforward" {
-	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instforward {*}args]}
-	    return [$o info methods -type forwarder {*}args]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info instforward {*}$args]}
+	    return [$o info methods -type forwarder {*}$args]
 	}
 	"proc" {
-	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info procs {*}args]}
-	    return [$o info object methods -type scripted {*}args]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info procs {*}$args]}
+	    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]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info procs {*}$args]}
+	    return [$o info object methods {*}$args]
 	}
 	"forward" {
-	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info forward {*}args]}
-	    return [$o info object methods -type forwarder {*}args]
+	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info forward {*}$args]}
+	    return [$o info object methods -type forwarder {*}$args]
 	}
 	"slots" {
 	    if {"::xotcl::Object" in [$o info precedence]} {return [$o info slots]}