Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	12 Apr 2013 16:12:56 -0000	1.10
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	30 Sep 2013 17:44:27 -0000	1.10.2.1
@@ -78,7 +78,7 @@
 } {
     set index [string last "/" $path]
     if { $index != -1 } {
-        file mkdir [string range $path 0 [expr {$index - 1}]]
+        file mkdir [string range $path 0 $index-1]
     } 
 }
 
@@ -815,7 +815,7 @@
       set subitems [db_list cs_get_subitems_related ""]
   }
 
-  set sub_item_id [lindex $subitems [expr {$index - 1}]]
+  set sub_item_id [lindex $subitems $index-1]
 
   if { [template::util::is_nil sub_item_id] } {
     ns_log notice "publish::render_subitem: No such subitem"