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 -r1.23
--- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	27 Oct 2014 16:41:02 -0000	1.22
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	7 Aug 2017 23:48:04 -0000	1.23
@@ -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) \
@@ -460,3 +460,9 @@
 set advanced_options_url [export_vars -base item-edit {as_item_id section_id assessment_id}]
 
 ad_return_template
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: