diff --git a/collects/mred/private/editor.ss b/collects/mred/private/editor.ss
index 433a24a084..5d7e738442 100644
--- a/collects/mred/private/editor.ss
+++ b/collects/mred/private/editor.ss
@@ -215,7 +215,7 @@
 			 [actual-format (if (memq f-format '(copy same))
 					    (-get-file-format)
 					    f-format)]
-			 [text? (not (memq actual-format '(text text-force-cr)))])
+			 [text? (memq actual-format '(text text-force-cr))])
 		    (and 
 		     file
 		     (can-save-file? file f-format)