Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v
diff -u -N -r1.10.2.6 -r1.10.2.7
--- openacs-4/packages/acs-api-browser/www/proc-view.tcl	19 Apr 2016 19:26:51 -0000	1.10.2.6
+++ openacs-4/packages/acs-api-browser/www/proc-view.tcl	23 May 2016 10:56:49 -0000	1.10.2.7
@@ -38,6 +38,7 @@
 
 if { ![info exists source_p] || $source_p eq ""} {
     set source_p $default_source_p
+    if {$source_p eq ""} {set source_p 0}
 }
 
 if {[string match ::* $proc]} {
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 -N -r1.8.2.7 -r1.8.2.8
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	14 May 2016 11:56:35 -0000	1.8.2.7
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	23 May 2016 10:56:49 -0000	1.8.2.8
@@ -18,12 +18,14 @@
 
 set url_vars [export_vars {path version_id}]
 set return_url [ns_urlencode [ad_conn url]?][ns_urlencode $url_vars]
+
 set default_source_p [ad_get_client_property -default 0 acs-api-browser api_doc_source_p]
 if { ![info exists source_p] } {
     set source_p $default_source_p
+    if {$source_p eq ""} {set source_p 0}
 }
-if { ![info exists version_id] && 
-     [regexp {^packages/([^ /]+)/} $path "" package_key] } {
+if { ![info exists version_id]
+     && [regexp {^packages/([^ /]+)/} $path "" package_key] } {
     db_0or1row version_id_from_package_key {
         select version_id 
 	from apm_enabled_package_versions