Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.72.2.31 -r1.72.2.32
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	2 Sep 2021 16:40:48 -0000	1.72.2.31
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	27 Oct 2021 19:34:25 -0000	1.72.2.32
@@ -425,7 +425,7 @@
         flags ""
         default_values ""
         switches0 ""
-        switches1 ""        
+        switches1 ""
         positionals ""
         varargs_p 0
         script ""
@@ -1161,13 +1161,14 @@
 
     if {[namespace which ::xo::api] ne ""
         && [regexp {^(.*) (inst)?proc (.*)$} $proc_name match obj prefix method]} {
+        set method [lindex $proc_name end]
         if {[regexp {^(.*) (.*)$} $obj match scope obj]} {
             if {[::xo::api scope_eval $scope ::nsf::is object $obj]} {
-                return [::xo::api get_method_source $scope $obj $prefix $method]
+                return [::xo::api get_method_source $scope ::$obj $prefix $method]
             }
         } else {
             if {[::nsf::is object $obj]} {
-                return [::xo::api get_method_source "" $obj $prefix $method]
+                return [::xo::api get_method_source "" ::$obj $prefix $method]
             }
         }
         return ""