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.3 -r1.3.10.1
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	10 Jan 2007 21:22:01 -0000	1.3
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	16 Sep 2013 07:01:20 -0000	1.3.10.1
@@ -15,12 +15,12 @@
     proc_doc_list:multirow
 }
 
-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 
-         where package_key = :package_key
+	from apm_enabled_package_versions 
+	where package_key = :package_key
     }
 }
 
@@ -41,12 +41,15 @@
 
 set context [list]
 if { [info exists version_id] } {
-    db_1row package_info_from_package_id {
+    db_0or1row package_info_from_package_id {
         select pretty_name, package_key, version_name
           from apm_package_version_info
          where version_id = :version_id
     }
-    lappend context [list "package-view?version_id=$version_id" "$pretty_name $version_name"]
+    if {[info exists pretty_name]} {
+	lappend context [list "package-view?version_id=$version_id" "$pretty_name $version_name"]
+    }
+
 }
 
 lappend context [file tail $path]