Index: openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl,v
diff -u -r1.6 -r1.6.6.1
--- openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	12 Jul 2009 01:08:22 -0000	1.6
+++ openacs-4/packages/acs-admin/www/users/user-batch-add-2.tcl	30 Sep 2013 11:12:56 -0000	1.6.6.1
@@ -25,7 +25,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]]