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.93.2.43 -r1.93.2.44
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Oct 2021 11:59:10 -0000	1.93.2.43
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	27 Oct 2021 19:34:25 -0000	1.93.2.44
@@ -945,11 +945,11 @@
 
     "instproc" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instprocs {*}$args]}
-      return [$o info methods -type scripted -callprotection all {*}$args]
+      return [$o info methods -path -type scripted -callprotection all {*}$args]
     }
     "instcommand" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instcommands {*}$args]}
-      return [$o info methods {*}$args]
+      return [$o info methods -path {*}$args]
     }
     "instforward" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info instforward {*}$args]}
@@ -963,7 +963,7 @@
     }
     "proc" {
       if {"::xotcl::Object" in [$o info precedence]} {return [$o info procs {*}$args]}
-      return [$o info object methods -type scripted {*}$args]
+      return [$o info object methods -path -type scripted {*}$args]
     }
     "command" {
       return [$o ::nsf::methods::object::info::methods {*}$args]