Index: openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	9 Feb 2005 10:42:51 -0000	1.3
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-mc-choices.tcl	21 Feb 2005 14:32:56 -0000	1.4
@@ -74,7 +74,11 @@
     append ad_form_code "\{percent.$choice_id:text,nospell \{label \"[_ assessment.Percent_Score]\"\} \{value \"$default_percent\"\} \{html \{size 5 maxlength 5\}\} \{help_text \"[_ assessment.Percent_Score_help]\"\}\}\n"
 }
 append ad_form_code "\}"
-set percentage [expr 100 / $count_correct]
+if {$count_correct > 0} {
+    set percentage [expr 100 / $count_correct]
+} else {
+    set percentage 0
+}
 eval ad_form -extend -name item_edit_mc_choices $ad_form_code