--- capa/capa51/GUITools/scorer.tcl	2000/01/10 22:40:30	1.9
+++ 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 ]
@@ -952,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] }
 	}
     }