--- capa/capa51/GUITools/scorer.errors.tcl	1999/09/28 21:25:37	1.1
+++ capa/capa51/GUITools/scorer.errors.tcl	2000/02/22 18:10:27	1.2
@@ -6,12 +6,15 @@
 proc handleErrorsScorer { num } {
     global gScorer
 
+    if { [catch {set length [llength $gScorer(errors.$num)]}]} {
+	displayMessage "There are no errors to save."
+    }
+
     if { "" == [set file [tk_getSaveFile]] } { return }
     if { [catch {set fileId [open $file "w"]}] } {
 	displayError "Unable to write to $file"
     }
 
-    set length [llength $gScorer(errors.$num)]
     for { set i 0 } { $i < $length } { incr i } {
 	puts $fileId "#[lindex $gScorer(errortype.$num) $i]"
 	puts $fileId "#[lindex $gScorer(errors.$num) $i]"