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.5 -r1.6
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	14 Jun 2015 00:04:21 -0000	1.5
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	19 Jun 2015 19:49:02 -0000	1.6
@@ -35,10 +35,10 @@
 if {![file readable $::acs::rootdir/$path] || [file isdirectory $::acs::rootdir/$path]} {
     if {[info exists version_id]} {
 	set kind procs
-	set href [ad_conn package_url]/package-view?[export_vars {version_id {kind procs}}]
-	set link [subst {<p>Go back to <a href="$href">Package Documentation</a>.}]
+	set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}]
+	set link [subst {<p>Go back to <a href="[ns_quotehrml $href]">Package Documentation</a>.}]
     } else {
-	set link [subst {<p>Go back to <a href="[ad_conn package_url]">API Browser</a>.}]
+	set link [subst {<p>Go back to <a href="[ns_quotehrml [ad_conn package_url]]">API Browser</a>.}]
     }
     ad_return_warning "No such library file" [subst {
 	The file '$path' was not found. Maybe the url contains a typo.
@@ -71,7 +71,7 @@
          where version_id = :version_id
     }
     if {[info exists pretty_name]} {
-	lappend context [list "package-view?version_id=$version_id" "$pretty_name $version_name"]
+	lappend context [list [export_vars -base package-view {version_id}] "$pretty_name $version_name"]
     }
 
 }