Index: openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl	12 Jul 2009 01:08:30 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/members/user-batch-add-2.tcl	27 Oct 2014 16:39:58 -0000	1.6
@@ -5,7 +5,7 @@
     userlist
     from
     subject
-    message:allhtml
+    message:html
 } -properties {
     title:onevalue
     success_text:onevalue
@@ -29,7 +29,7 @@
 while {[regexp {(.[^\n]+)} $userlist match_fodder row] } {
     # remove each row as it's handled
     set remove_count [string length $row]
-    set userlist [string range $userlist [expr {$remove_count + 1}] end]
+    set userlist [string range $userlist $remove_count+1 end]
     set row [split $row ,]
     set email [string trim [lindex $row 0]]
     set first_names [string trim [lindex $row 1]]