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.39 -r1.72.2.40
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 Jan 2022 16:20:35 -0000	1.72.2.39
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	17 Jan 2022 18:03:23 -0000	1.72.2.40
@@ -1222,7 +1222,7 @@
     } elseif {[info procs ::nsf::procs::$proc_name_pattern] ne ""} {
         return [::nx::Object info method body ::nsf::procs::$proc_name]
     } else {
-        return "No such Tcl-proc '$proc_name'"
+        return $proc_name
     }
 }
 
@@ -1703,11 +1703,11 @@
         }
 
         set data [string map [list & "&amp;" < "&lt;" > "&gt;"] \n$script]
-
         set in_comment 0
         set in_quotes 0
         set proc_ok 1
         set l [string length $data]
+
         for {set i 0} {$i < $l} {incr i} {
             set char [string index $data $i]
             switch -- $char {
@@ -1826,6 +1826,7 @@
                         set proc_ok 0
                         set procl [length_proc [string range $data $i end]]
                         set proc_name [string range $data $i $i+$procl]
+
                         if {$proc_name eq "ad_proc"} {
                             #
                             # Pretty print comment after ad_proc rather than trying to index keywords
@@ -1878,7 +1879,9 @@
                                     }
                                 }
                             }
+                            continue
                         }
+
                         #
                         # The last four words in the following clause
                         # are deprecated procs which are unfortunately
@@ -1945,7 +1948,7 @@
                             #    ns_log notice "TCLCODE: giving up on '$proc_name' ($procl) [string range $data $i $i+20]"
                             #}
                             append html $proc_name
-                            set proc_ok 1
+                            #set proc_ok 1
                         }
                         incr i $procl