--- ray/src/util/do_file.tcl	1994/10/27 15:56:06	2.1
+++ ray/src/util/do_file.tcl	1994/12/01 09:53:55	2.2
@@ -273,6 +273,7 @@ proc newnew f {			# create a new RIF
 proc do_file w {
 	global rifname readonly rif_glob curfile curpat
 	if {"$w" == "done"} {
+		cd [file dirname $rifname]
 		set rif_glob $curpat
 		return
 	}