--- capa/capa51/GUITools/scorer.tcl	1999/12/01 18:22:00	1.4
+++ capa/capa51/GUITools/scorer.tcl	1999/12/03 18:39:38	1.5
@@ -153,6 +153,7 @@ proc runScorer { setFile } {
     configureOptions $num
     loadScorerConfig $num
     Centre_Dialog $scorerWin default
+#    trace variable gScorer(quit.$num) w "scorerClose $num 0"
 }
 
 ###########################################################
@@ -1554,11 +1555,12 @@ proc scorerClose { num {mustClose 0} {du
     global gScorer
 
     puts "scorerClose"
-    if { $gScorer(needToUpdateDB) } {
-	set message \
-	    "Are you sure you wish to close, you haven't yet updated the .sb file."
-    } else {
-	set message "Are you sure you wish to close?"
+    set message "Are you sure you wish to close?"
+    catch {
+	if { $gScorer(needToUpdateDB) } {
+	    set message \
+		"Are you sure you wish to close, you haven't yet updated the .sb file."
+	}
     }
     if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }
     stopScorer $num