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.6.1 -r1.5.6.2
--- openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	18 Aug 2014 20:25:04 -0000	1.5.6.1
+++ openacs-4/packages/assessment/www/asm-admin/bulk-mail.tcl	18 Aug 2014 20:27:51 -0000	1.5.6.2
@@ -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 [string length $users_list]-2]
 append users_list ")"
 
 set query "select email from cc_users where object_id in $users_list"