Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	18 Jan 2005 12:42:36 -0000	1.13
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	18 Jan 2005 15:04:21 -0000	1.14
@@ -286,6 +286,11 @@
     }
 
     db_1row sum_of_section_points {}
+
+    if {![exists_and_not_null section_max_points]||$section_max_points==0} {
+	set section_max_points 1
+    }
+
     set percent_score [expr round(100 * $section_points / $section_max_points)]
     db_dml update_assessment_percent {}
 }