Index: openacs-4/packages/assessment/tcl/as-qti-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-qti-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/assessment/tcl/as-qti-procs.tcl	28 Dec 2004 11:42:53 -0000	1.16
+++ openacs-4/packages/assessment/tcl/as-qti-procs.tcl	10 Jan 2005 18:55:11 -0000	1.17
@@ -325,7 +325,7 @@
 		    }
 		    # Insert as_item_choice
 		    set as_item_choices__correct_answer_p($as_item_choices__ident) [expr [info exists as_item_choices__correct_answer_p($as_item_choices__ident)]?{t}:{f}]
-		    set as_item_choices__score($as_item_choices__ident) [expr round(100 * $as_item_choices__score(as_item_choices__ident) / $as_items__points)]
+		    set as_item_choices__score($as_item_choices__ident) [expr round(100 * $as_item_choices__score($as_item_choices__ident) / $as_items__points)]
 		    if {![info exists as_item_choices__score($as_item_choices__ident)]} {
 			set as_item_choices__score($as_item_choices__ident) 0
 		    }