--- ray/src/util/do_file.tcl	1994/12/08 17:16:38	2.5
+++ ray/src/util/do_file.tcl	1995/02/15 14:12:05	2.6
@@ -242,7 +242,8 @@ proc newsave f {		# save a RIF
 			return 0
 		}
 	}
-	if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} {
+	if {[file exists $f] && ! [file writable $f] && 
+			[catch {exec chmod u+w $f} curmess]} {
 		beep
 		return 0
 	}