--- ray/src/util/do_views3.6.tcl	1994/11/05 09:31:48	2.3
+++ ray/src/util/do_views3.6.tcl	1995/03/24 12:35:27	2.4
@@ -43,7 +43,10 @@ proc addview {{pos end}} {		# add current view
 		return -1
 	}
 	set curmess {}
-	set n [lsearch -glob $radvar(view) "$viewname *"]
+	set n [lsearch -exact $radvar(view) $viewname]
+	if {$n < 0} {
+		set n [lsearch -glob $radvar(view) "$viewname *"]
+	}
 	if {$n >= 0} {
 		set radvar(view) [lreplace $radvar(view) $n $n]
 		if {"$pos" != "end" && $pos > $n} {incr pos -1}