--- ray/src/util/do_file.tcl	1994/12/08 15:53:46	2.4
+++ ray/src/util/do_file.tcl	1994/12/08 17:16:38	2.5
@@ -242,6 +242,10 @@ proc newsave f {		# save a RIF
 			return 0
 		}
 	}
+	if {! [file writable $f] && [catch {exec chmod u+w $f} curmess]} {
+		beep
+		return 0
+	}
 	if [save_vars $f] {
 		set rifname [pwd]/$f
 		set readonly 0