Index: openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl	7 Aug 2017 23:48:03 -0000	1.3
+++ openacs-4/packages/acs-templating/www/doc/gen/generate-docs.tcl	22 May 2018 16:44:55 -0000	1.4
@@ -28,7 +28,7 @@
 # uses ns_library to find the server root, may not always be accurate
 proc ::template::util::server_root {} {
 
-  set path_length [expr [llength [file split [ns_library private]]] - 1]
+  set path_length [expr {[llength [file split [ns_library private]]] - 1}]
   set svr_root "/[join [lreplace [file split [ns_library private]] $path_length $path_length] / ]"
   return $svr_root 
 }