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]]