--- capa/capa51/GUITools/scorer.tcl	2000/01/05 21:11:15	1.8
+++ capa/capa51/GUITools/scorer.tcl	2000/01/10 22:40:30	1.9
@@ -830,6 +830,7 @@ proc parseLine { num answerLine answerSt
     set perQuest [lindex $gScorer($sheet.Question) 2]
     set parsedIn(multiplemarks) 0
     set parsedIn(spaces) 0
+    set parsedIn(maxQuest) $maxQuest
     for { set i 0 } { $i < $maxQuest } { incr i } {
 	if { [ catch { set gScorer(quest.$i.type.$num) } ] } {
 	    set parsedIn(maxQuest) $i