--- ray/src/util/do_scene.tcl	1995/09/13 14:51:01	2.1
+++ ray/src/util/do_scene.tcl	1996/05/17 13:53:01	2.3
@@ -3,11 +3,6 @@
 # Track octree and scene files
 #
 
-set myglob(materials) *.mat
-set myglob(illum) *.rad
-set myglob(scene) *.rad
-set myglob(objects) *
-
 proc newfent f {		# add file to our list
 	global rifname radvar mybox myvar
 	set rd [file dirname $rifname]
@@ -39,7 +34,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
 	}