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.118.2.37 -r1.118.2.38
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	1 Dec 2016 14:31:01 -0000	1.118.2.37
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	10 Jan 2017 08:24:51 -0000	1.118.2.38
@@ -878,8 +878,8 @@
     set components [split $path "/"]
     set prefixes [list]
     for {set i [expr {[llength $components] -1}]} {$i > 0} {incr i -1} {
-        lappend prefixes "[join [lrange $components 0 $i] "/"]/"
-        lappend prefixes "[join [lrange $components 0 $i] "/"]"
+        lappend prefixes "[join [lrange $components 0 $i] /]/"
+        lappend prefixes [join [lrange $components 0 $i] /]
     }
     lappend prefixes "/"