--- capa/capa51/GUITools/scorer.tcl	2000/01/31 18:34:13	1.10
+++ capa/capa51/GUITools/scorer.tcl	2000/02/08 22:18:11	1.11
@@ -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] }
 	}
     }