diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 4ddb7558..608231c3 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -1000,7 +1000,7 @@
                               this)])
                    (case save
                      [(continue) #f]
-                     [(save) (not (send editor save-file/gui-errors))]
+                     [(save) (not (send editor save-file/gui-error))]
                      [(cancel) #t]))))
           
           ;; ask-about-new-here : -> (union 'cancel boolean?)