Index: openacs-4/packages/acs-api-browser/www/package-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/package-view.tcl,v
diff -u -r1.9.2.4 -r1.9.2.5
--- openacs-4/packages/acs-api-browser/www/package-view.tcl	9 Oct 2015 13:26:12 -0000	1.9.2.4
+++ openacs-4/packages/acs-api-browser/www/package-view.tcl	30 Dec 2015 12:54:34 -0000	1.9.2.5
@@ -60,10 +60,8 @@
 
 set title "$pretty_name $version_name"
 set context [list $title]
-set dimensional_slider "[ad_dimensional \
-        $dimensional_list \
-        "" \
-        [ad_tcl_vars_to_ns_set version_id kind public_p about_package_key]]"
+set dimensional_slider [ad_dimensional $dimensional_list "" \
+                            [ad_tcl_vars_to_ns_set version_id kind public_p about_package_key]]
 
 switch $kind {
     procs_files {
@@ -107,7 +105,7 @@
         foreach proc [lsort [array names procs]] {
             array set doc_elements [nsv_get api_proc_doc $proc]
             if { $public_p } {
-                if { !$doc_elements(public_p) } {
+                if { $doc_elements(protection) ne "public"} {
                     continue
                 }
             }