--- capa/capa51/GUITools/scorer.tcl	1999/12/16 22:18:35	1.7
+++ capa/capa51/GUITools/scorer.tcl	2000/02/08 22:18:11	1.11
@@ -166,7 +166,7 @@ proc loadScorerConfig { num } {
     
     set filename [file join $gFile($num) records scorer.output.$gScorer(set.$num)]
     if { [ catch { set fileId [ open $filename "r" ] } ] } {
-	displayError "The set \"$gScorer(set.$num)\" does not yet have an scorer.output file. "
+	displayMessage "Creating a new scorer.output file for set $gScorer(set.$num)."
 	return
     }
     set line [gets $fileId ]
@@ -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
@@ -951,7 +952,7 @@ proc getAnswers { PID set maxQuest num }
     cd $pwd
     set result ""
     foreach line [split $temp "\n"] {
-	switch [lindex [split $line :] 0] {
+	switch -- [lindex [split $line :] 0] {
 	    ANS { lappend result [string range $line 4 end] }
 	}
     }
@@ -1030,7 +1031,7 @@ proc handleStudent { num answerStructVar
 	if { [catch { set answerStruct(correct.$questionPID) \
 			  [getAnswers $questionPID $gScorer(set.$num) \
 			       $answerStruct(maxQuest) $num] } errorMsg ] } {
-	    puts $errorMsg
+	    catch {puts $errorMsg}
 	    scorerError $num UNABLE_TO_PARSE "$answerStruct(orignalLine)" \
 		$answerStruct(StudentNumber)
 	    error UNABLE_TO_PARSE
@@ -1545,7 +1546,7 @@ proc scorerQuit { num } {
     global gScorer
     set gScorer(pause.$num) 1
     set gScorer(quit.$num) 1
-    puts [trace vinfo gScorer(quit.$num)]
+    #puts [trace vinfo gScorer(quit.$num)]
     catch {scorerMessage $num "Quitting. . . " info}
 }
 
@@ -1557,7 +1558,6 @@ proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer
 
-    puts "scorerClose"
     set message "Are you sure you wish to close?"
     catch {
 	if { $gScorer(needToUpdateDB) } {