Index: openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	10 Sep 2015 08:21:21 -0000	1.8.2.1
+++ openacs-4/packages/acs-core-docs/www/sql/display-sql.tcl	28 May 2016 15:39:53 -0000	1.8.2.2
@@ -35,11 +35,7 @@
     ad_script_abort
 }
 
-if {$package_key ne ""} {
-    set safe_p [regexp {/?(.*)} $url package_url]
-}
 
-
 if {$db eq ""} { 
 
     # if we were not passed a DB string get a list of matching files.
@@ -62,13 +58,19 @@
 
     # we have a db.  
 
+
     if {$db eq "sql"} { 
         set files [glob -nocomplain "[acs_package_root_dir $package_key]/sql/$url"]       
     } else { 
         set files [glob -nocomplain "[acs_package_root_dir $package_key]/sql/$db/$url"]       
     }
-        
 
+    if {$package_key ne ""} {
+        set safe_p [regexp {/?(.*)} $url package_url]
+    } else {
+        set safe_p 0
+    }
+
     if { $safe_p && [llength $files] > 0 } {
         ns_returnfile 200 text/plain $files
     } else {