--- ray/src/util/do_scene.tcl	1996/05/17 13:53:01	2.3
+++ ray/src/util/do_scene.tcl	2012/06/01 22:55:14	2.5
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_scene.tcl,v 2.5 2012/06/01 22:55:14 greg Exp $
 #
 # Track octree and scene files
 #
@@ -216,7 +216,7 @@ proc do_scene w {		# Create scene screen
 			-anchor se
 	helplink $w.revert trad scene revert
 	button $w.copy -text Copy -relief raised -command {getfile -grab \
-			-send copyscene -view view_txt -glob $rif_glob}
+			-send copyscene -view view_txt -glob $myglob(rif)}
 	place $w.copy -relwidth .1071 -relheight .0610 -relx .98 -rely .90 \
 			-anchor se
 	helplink $w.copy trad scene copy