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.83 -r1.84
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	29 Oct 2024 16:37:43 -0000	1.83
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	3 Nov 2024 09:50:39 -0000	1.84
@@ -663,7 +663,7 @@
         #
         # Make sure we have the newest update in the nsv
         #
-        ::xo::api update_object_doc $scope $cl ""
+        ::xo::api update_object_doc $scope [expr {[string match ::* $cl] ? $cl :"::$cl"}] ""
     } else {
         set xotclArgs 0
         if {[namespace which ::xo::api] ne "" && [::xo::api isobject "" [lindex $proc_name 1]]} {
@@ -827,6 +827,8 @@
                     # The method is defined on a class
                     #
                     set methodSyntax [xo::api method_link -label $methodSyntax $containerObject instproc $m]
+                } else {
+                    set methodSyntax [xo::api method_link -label $methodSyntax $containerObject proc $m]
                 }
                 append blocks_out "<li><i>$methodSyntax</i></li>\n"
             }
Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	3 Nov 2024 08:58:06 -0000	1.33
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	3 Nov 2024 09:50:39 -0000	1.34
@@ -38,6 +38,7 @@
     #
     switch [llength $proc_spec] {
       1 {}
+      2 {lassign $proc_spec methodType obj; set scope ""}
       3 {lassign $proc_spec obj methodType method; set scope ""}
       4 {lassign $proc_spec scope obj methodType method}
       default {
@@ -96,7 +97,7 @@
       set modifier "-per-object"
     } elseif {$methodType in {instproc nsfproc}} {
       set modifier ""
-    } elseif {$methodType eq "Class"} {
+    } elseif {$methodType in {Class Object}} {
       return ""
     } else {
       ns_log warning "[self] debug_widget unexpected method type <$methodType>"
@@ -412,6 +413,9 @@
     # If no doc string is provided, try to get it from the object
     # definition.
     #
+    #if {![string match ::* $obj]} {
+    #  ad_log error "==== update_object_doc OBJECT WITHOUT leading colons <$obj>"
+    #}
 
     if {$doc_string eq ""} {
       set doc_string [:get_doc_block [:get_init_block $scope $obj]]