--- capa/capa51/GUITools/scorer.tcl	1999/09/28 21:25:36	1.1
+++ capa/capa51/GUITools/scorer.tcl	1999/11/08 22:30:02	1.3
@@ -640,7 +640,7 @@ proc startScorer { num } {
     label $errors.num -textvariable gScorer(numerrors.$num)
     pack $errors.mesg $errors.num -side left
     
-    button $statusButtons.handleErrors -text "Handle Errors" \
+    button $statusButtons.handleErrors -text "Save Errors" \
 	-command "handleErrorsScorer $num"
     button $statusButtons.printMsg -text "Print Messages" \
 	-command "printScorerMsg $num"
@@ -1541,6 +1541,7 @@ proc scorerQuit { num } {
     global gScorer
     set gScorer(pause.$num) 1
     set gScorer(quit.$num) 1
+    puts [trace vinfo gScorer(quit.$num)]
     catch {scorerMessage $num "Quitting. . . " info}
 }
 
@@ -1552,6 +1553,7 @@ proc scorerQuit { num } {
 proc scorerClose { num {mustClose 0} {dummy ""} {dummy2 ""} {dummy3 ""}} {
     global gScorer
 
+    puts "scorerClose"
     if { $gScorer(needToUpdateDB) } {
 	set message \
 	    "Are you sure you wish to close, you haven't yet updated the .sb file."