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.5 -r1.8.2.6 --- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 13 May 2016 07:08:49 -0000 1.8.2.5 +++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl 14 May 2016 11:47:07 -0000 1.8.2.6 @@ -32,7 +32,7 @@ } set path [apidoc::sanitize_path $path] -if {![file readable $::acs::rootdir/$path] || [file isdirectory $::acs::rootdir/$path]} { +if {![file readable ${::acs::rootdir}$path] || [file isdirectory ${::acs::rootdir}$path]} { if {[info exists version_id]} { set kind procs set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}] @@ -76,6 +76,7 @@ } +set path [string trimleft / $path] lappend context [file tail $path] set title [file tail $path]