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.52 -r1.53
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	26 Jul 2018 11:43:59 -0000	1.52
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	26 Jul 2018 12:15:37 -0000	1.53
@@ -866,19 +866,14 @@
     #
     foreach package_key [apm_enabled_packages] {
         foreach file [apm_get_package_files -package_key $package_key -file_types tcl_init] {
-            ns_log notice "could add $file"
             set file_contents [template::util::read_file $::acs::rootdir/packages/$package_key/$file]
-            set file_contents [apidoc::tclcode_to_html $file_contents]
             set proc_name packages/$package_key/$file
             foreach called [api_called_proc_names -proc_name $proc_name -body $file_contents] {
                 api_add_to_proc_doc \
                     -proc_name $called \
                     -property calledby \
                     -value $proc_name
             }
-
-            #template::adp_init tcl [file root $file]
-
         }
     }
 
@@ -1017,10 +1012,18 @@
 
     #
     # Inlcude information, what other procs this proc calls.
+    # filter from this list false positives from the call graph analysis
     #
+    set called_procs {}
+    foreach c [api_called_proc_names -proc_name $proc_name] {
+        if {[info commands $c] eq $c} {
+            lappend called_procs $c
+        }
+    }
+
     set edges ""
     set nodes ""
-    foreach called [lrange [api_called_proc_names -proc_name $proc_name] 0 $maxnodes-1] {
+    foreach called [lrange $called_procs 0 $maxnodes-1] {
         set url [api_proc_doc_url -proc_name $called]
         set hints [api_proc_pretty_name -hints_only $called]
         if {$hints ne ""} {