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 -N -r1.118.2.53 -r1.118.2.54
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	25 Jul 2017 09:49:58 -0000	1.118.2.53
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	21 May 2019 11:17:00 -0000	1.118.2.54
@@ -754,7 +754,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] /]
     }
 
     #####
@@ -826,7 +826,7 @@
     #####
     if { [ad_conn object_id] ne "" } {
         ad_try {
-            switch -glob -- [ad_conn extra_url] {
+            switch -nocase -glob -- [ad_conn extra_url] {
                 admin/* {
                     # double check someone has not accidentally granted
                     # admin to public and require logins for all admin pages