Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl,v
diff -u -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl	10 Sep 2015 08:28:05 -0000	1.13.2.1
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc.tcl	15 Apr 2017 10:15:59 -0000	1.13.2.2
@@ -151,7 +151,7 @@
 	# edit existing choices
 	set count 0
 	foreach i \[lsort \[array names choice\]\] {
-            if {\[string range  \$i 0 0\] != \"_\" && !\[empty_string_p \$choice(\$i)\]} {
+            if {\[string index  \$i 0\] != \"_\" && !\[empty_string_p \$choice(\$i)\]} {
           	incr count
 		set new_choice_id \[as::item_choice::new_revision -choice_id \$i -mc_id \$new_item_type_id\]
 		set title \$choice(\$i)
@@ -164,7 +164,7 @@
 	# add new choices
 	foreach i \[lsort \[array names choice\]\] {
 
-	    if {\[string range  \$i 0 0\] == \"_\" && !\[empty_string_p \$choice(\$i)\]} {
+	    if {\[string index \$i 0\] == \"_\" && !\[empty_string_p \$choice(\$i)\]} {
 		incr count
 		set new_choice_id \[as::item_choice::new -mc_id \$new_item_type_id \\
 				       -title \$choice(\$i) \\