Index: openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl,v
diff -u -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	10 Sep 2015 08:28:05 -0000	1.22.2.1
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	15 Apr 2017 10:12:03 -0000	1.22.2.2
@@ -380,7 +380,7 @@
 			# edit existing choices
 			set count 0
 			foreach i [lsort [array names choice]] {
-			    if {[string range  $i 0 0] ne "_" && $choice($i) ne ""} {
+			    if {[string index $i 0] ne "_" && $choice($i) ne ""} {
 				incr count
 				set new_choice_id [as::item_choice::new_revision -choice_id $i -mc_id $new_item_type_id]
 				set title $choice($i)
@@ -394,7 +394,7 @@
 			# add new choices
 			foreach i [lsort [array names choice]] {
 			    
-			    if {[string range  $i 0 0] eq "_" && $choice($i) ne ""} {
+			    if {[string index $i 0] eq "_" && $choice($i) ne ""} {
 				incr count
 				set new_choice_id [as::item_choice::new -mc_id $new_item_type_id \
 						       -title $choice($i) \