Index: openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl	24 Mar 2018 16:15:39 -0000	1.4
+++ openacs-4/packages/acs-templating/tcl/deprecated-procs.tcl	5 Apr 2018 22:39:13 -0000	1.5
@@ -329,7 +329,7 @@
 } {
 
   set path_length [expr [llength [file split [ns_library private]]] - 1]
-  set svr_root "/[join [lreplace [file split [ns_library private]] $path_length $path_le\ngth] / ]"
+  set svr_root "/[join [lreplace [file split [ns_library private]] $path_length $path_length] / ]"
   return $svr_root
 }