Index: openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl,v
diff -u -r1.47.2.2 -r1.47.2.3
--- openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	24 Sep 2013 09:13:00 -0000	1.47.2.2
+++ openacs-4/packages/xotcl-core/tcl/bgdelivery-procs.tcl	29 Sep 2013 20:10:02 -0000	1.47.2.3
@@ -259,7 +259,7 @@
 	my close -sync true
       }
     } else {
-      set chunk [string range $content 0 [expr {$blocksize-1}]]
+      set chunk [string range $content 0 $blocksize-1]
       set content [string range $content $blocksize end]
       puts -nonewline $channel $chunk
       my log "write [string length $chunk] bytes ([string length $content] buffered)"