From fad83053fa9611007b2063f440bc7387d192414b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 7 Apr 1999 15:50:37 +0000
Subject: [PATCH] ...

original commit: f7ae8c9d5a7b33d904bf4022a56dfc0ffe4f9129
---
 collects/framework/editor.ss | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/collects/framework/editor.ss b/collects/framework/editor.ss
index a0033303..dcb8762e 100644
--- a/collects/framework/editor.ss
+++ b/collects/framework/editor.ss
@@ -263,9 +263,10 @@
 	     (let ([back-name (path-utils:generate-backup-name name)])
 	       (when (or (not (file-exists? back-name))
 			 (file-old? back-name))
-		 (delete-file back-name))
-	       (with-handlers ([(lambda (x) #t) void])
-		 (copy-file name back-name)))))]
+		 (when (file-exists? back-name)
+		   (delete-file back-name))
+		 (with-handlers ([(lambda (x) #t) void])
+		   (copy-file name back-name))))))]
 	[on-close
 	 (lambda ()
 	   (super-on-close)