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.40 -r1.72.2.41
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 Jan 2022 18:03:23 -0000	1.72.2.40
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	26 Jun 2022 15:19:54 -0000	1.72.2.41
@@ -917,7 +917,10 @@
     #
     set init_files packages/acs-bootstrap-installer/bootstrap.tcl
     foreach package_key [apm_enabled_packages] {
-        foreach file [apm_get_package_files -package_key $package_key -file_types {tcl_init content_page include_page}] {
+        foreach file [apm_get_package_files \
+                          -package_key $package_key \
+                          -file_types \
+                          {tcl_init content_page include_page}] {
             if {[file extension $file] eq ".tcl"} {
                 lappend init_files packages/$package_key/$file
             }
@@ -1091,7 +1094,7 @@
     #
     set called_procs {}
     foreach c [api_called_proc_names -proc_name $proc_name] {
-        if {[namespace which $c] eq $c
+        if {[namespace which $c] eq "::$c"
             && $c ni $callers
             && $c ne $proc_name
         } {
@@ -2079,7 +2082,7 @@
 }
 
 ad_proc -private api_proc_doc_url {-proc_name -source_p -version_id} {
-    Return the procdic url from procname and optionally from source_p and version_id
+    Return the procdoc url from procname and optionally from source_p and version_id
 } {
     if {[string range $proc_name 0 0] eq " " && [lindex $proc_name 0] in {Object Class}} {
         set object [lindex $proc_name end]