--- ray/src/util/do_options.tcl	1995/02/22 20:48:49	2.5
+++ ray/src/util/do_options.tcl	2003/02/22 02:07:30	2.8
@@ -1,11 +1,11 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_options.tcl,v 2.8 2003/02/22 02:07:30 greg Exp $
 #
 # Options screen for trad
 #
 
 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
 	}
@@ -110,7 +110,7 @@ proc do_options w {		# Set up options screen
 			-anchor se
 	helplink $w.revert trad options revert
 	button $w.copy -text Copy -relief raised -command {getfile -grab \
-			-send copyopts -view view_txt -glob $rif_glob}
+			-send copyopts -view view_txt -glob $myglob(rif)}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se
 	helplink $w.copy trad options copy