Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v
diff -u -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	6 Oct 2015 06:28:55 -0000	1.8.2.3
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	30 Dec 2015 12:54:35 -0000	1.8.2.4
@@ -90,7 +90,7 @@
     foreach proc [lsort [nsv_get api_proc_doc_scripts $path]] {
         if { $public_p } {
             array set doc_elements [nsv_get api_proc_doc $proc]
-            if { !$doc_elements(public_p) } {
+            if { $doc_elements(protection) ne "public"} {
                 continue
             }
         }
@@ -99,7 +99,7 @@
     foreach proc [lsort [nsv_get api_proc_doc_scripts $path]] {
         if { $public_p } {
             array set doc_elements [nsv_get api_proc_doc $proc]
-            if { !$doc_elements(public_p) } {
+            if { $doc_elements(protection) ne "public"} {
                 continue
             }
         }