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.15.2.3 -r1.15.2.4
--- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	5 Feb 2007 19:54:42 -0000	1.15.2.3
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	15 Feb 2007 21:16:39 -0000	1.15.2.4
@@ -162,7 +162,7 @@
     foreach c $existing_choices {
         set id [lindex $c 1]
         template::multirow append choice_elements $id f
-        if {[lindex $c 2] eq "t"} {
+        if {[lindex $c 2] eq "t" && ![template::form::is_submission item_edit_general]} {
             set correct($id) t
         }
     }
@@ -307,6 +307,7 @@
                             set new_choice_id [as::item_choice::new_revision -choice_id $i -mc_id $new_item_type_id]
                             set title $choice($i)
                             set correct_answer_p [ad_decode [info exists correct($i)] 0 f t]
+
                             db_dml update_title {}
                             db_dml update_correct_and_sort_order {}
                         }