--- ray/src/util/do_scene3.6.tcl	1994/12/06 15:54:43	2.6
+++ ray/src/util/do_scene3.6.tcl	1995/10/17 21:28:15	2.8
@@ -39,13 +39,13 @@ proc lbgetf nm {		# get list box files
 
 proc oct_delete {} {		# delete octree file
 	global radvar curmess
-	if {"$radvar(OCTREE)" == {} || ! [file exists $radvar(OCTREE)]} {
+	if {"$radvar(OCTREE)" == {} || ! [file isfile $radvar(OCTREE)]} {
 		set curmess {No octree file.}
 		return
 	}
 	if [tk_dialog .dlg {Verification} \
 			"Really delete octree file $radvar(OCTREE)?" \
-			questhead 1 {Delete} {Cancel}] {
+			questhead 0 {Delete} {Cancel}] {
 		return 0
 	}
 	if [catch {exec rm $radvar(OCTREE) < /dev/null} curmess] {return 0}