--- ray/src/util/do_views3.6.tcl	1995/08/28 10:12:39	2.6
+++ ray/src/util/do_views3.6.tcl	1996/05/17 13:58:40	2.7
@@ -195,7 +195,7 @@ proc do_views w {			# create views screen
 			-anchor se
 	helplink $w.revert trad views revert
 	button $w.copy -text Copy -relief raised -command {getfile -grab \
-			-send copyviews -view view_txt -glob $rif_glob}
+			-send copyviews -view view_txt -glob $myglob(rif)}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se
 	helplink $w.copy trad views copy