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.79 -r1.80
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	22 Oct 2024 09:03:42 -0000	1.79
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	22 Oct 2024 13:44:14 -0000	1.80
@@ -467,6 +467,7 @@
             set label $proc_name
         }
     }
+
     if { $script_p } {
         set pretty_name [api_proc_pretty_name \
                              -include_debug_controls \
@@ -511,7 +512,7 @@
         ::xo::api update_object_doc $scope $cl ""
     } else {
         set xotclArgs 0
-        if {[namespace which ::xo::api] ne "" && [::xo::api isclass "" [lindex $proc_name 1]]} {
+        if {[namespace which ::xo::api] ne "" && [::xo::api isobject "" [lindex $proc_name 1]]} {
             set name [lindex $proc_name 1]
             set pretty_proc_name "[$name info class] [::xo::api object_link {} $name]"
         } else {
@@ -1297,8 +1298,16 @@
         @param see a string expected to contain the resource to format
         @return the html string representing the resource
     } {
-        #regsub -all -- {proc *} $see {} see
-        set see [string trim $see]
+        #set see [string trim $see]
+
+        #
+        # The leading space is of a scope-less object or class is
+        # trimmed already via package contract. Reconstruct it again.
+        #
+        if {[regexp {^(Class|Object) (.*)$} $see . what obj]} {
+            set see " $see"
+        }
+
         if {[nsv_exists api_proc_doc $see]} {
             set href [export_vars -base /api-doc/proc-view {{proc $see}}]
             return [subst {<a href="[ns_quotehtml $href]">$see</a>}]