Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.153.2.6 -r1.153.2.7
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	23 Apr 2019 15:39:46 -0000	1.153.2.6
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	20 May 2019 20:26:45 -0000	1.153.2.7
@@ -725,7 +725,7 @@
         ad_conn -set package_key $node(package_key)
         ad_conn -set package_url $node(url)
         ad_conn -set instance_name $node(instance_name)
-        ad_conn -set extra_url [string range $ad_conn_url [string length $node(url)] end]
+        ad_conn -set extra_url [string trimleft [string range $ad_conn_url [string length $node(url)] end] /]
     }
 
     #####
@@ -809,7 +809,7 @@
     set result filter_ok
     if { [ad_conn object_id] ne "" } {
         ad_try -auto_abort=false {
-            switch -glob -- [ad_conn extra_url] {
+            switch -nocase -glob -- [ad_conn extra_url] {
                 admin/* {
                     #
                     # Double check if someone has not accidentally