From d617c48c1c42310980f47448ac74cff046ff06b9 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 14 Jul 1998 02:12:15 +0000
Subject: [PATCH] fixed copy-file misuse

original commit: e8ff56a1a06139f9da38b6185a85938ab04e9127
---
 collects/mred/edit.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index 2ec2ca03..936450a0 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -872,7 +872,8 @@
 			       (not (= format wx:const-media-ff-copy))
 			       (file-exists? name))
 		      (let ([back-name (mred:path-utils:generate-backup-name name)])
-			(copy-file name back-name)))
+			(with-handlers ([exn:i/o:filesystem:rename? void])
+			  (copy-file name back-name))))
 		    #t)))]
 	  [do-close
 	   (lambda ()