--- ray/src/util/do_options.tcl	1995/02/07 12:01:17	2.4
+++ ray/src/util/do_options.tcl	1995/10/17 21:28:09	2.6
@@ -5,7 +5,7 @@
 
 proc amb_delete {} {		# delete ambient file
 	global radvar curmess
-	if {"$radvar(AMBFILE)" == {} || ! [file exists $radvar(AMBFILE)]} {
+	if {"$radvar(AMBFILE)" == {} || ! [file isfile $radvar(AMBFILE)]} {
 		set curmess {No ambient file.}
 		return
 	}
@@ -15,7 +15,7 @@ proc amb_delete {} {		# delete ambient file
 	if {$nv > 50 && [tk_dialog .dlg {Verification} \
 				"Really delete ambient file $radvar(AMBFILE)\
 				with $nv indirect irradiance values?" \
-				questhead 1 {Delete} {Cancel}]} {
+				questhead 0 {Delete} {Cancel}]} {
 		return 0
 	}
 	if [catch {exec rm $radvar(AMBFILE) < /dev/null} curmess] {return 0}