--- ray/src/util/do_scene.tcl	1995/09/13 14:51:01	2.1
+++ ray/src/util/do_scene.tcl	1995/10/17 21:28:13	2.2
@@ -39,7 +39,7 @@ 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
 	}