Index: openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl,v
diff -u -r1.5 -r1.5.6.1
--- openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	7 Oct 2007 22:36:54 -0000	1.5
+++ openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	18 Aug 2014 20:25:04 -0000	1.5.6.1
@@ -25,7 +25,7 @@
     append users_list "$subject_id,"
 }
 
-set users_list [string range $users_list 0 [expr [string length $users_list] -2]]
+set users_list [string range $users_list 0 [expr {[string length $users_list] -2}]]
 append users_list ")"
 
 set query "select email from cc_users where object_id in $users_list"