--- ray/src/util/do_results.tcl	1995/10/05 13:35:27	2.5
+++ ray/src/util/do_results.tcl	2003/02/22 02:07:30	2.7
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: do_results.tcl,v 2.7 2003/02/22 02:07:30 greg Exp $
 #
 # Results screen for trad
 #
@@ -57,7 +57,7 @@ set conv(typ) tga-24
 
 proc testappend {flst tf} {	# test if tf exists and append to flst if so
 	upvar $flst mylist
-	if [file exists $tf] {
+	if [file isfile $tf] {
 		lappend mylist $tf
 	}
 }
@@ -67,9 +67,9 @@ proc list_views {} {		# List finished and unfinished p
 	set fpics {}
 	set ufpics {}
 	foreach vw $radvar(view) {
-		if [file exists ${rawfroot}_[lindex $vw 0].unf] {
+		if [file isfile ${rawfroot}_[lindex $vw 0].unf] {
 			lappend ufpics [lindex $vw 0]
-		} elseif {[file exists $radvar(PICTURE)_[lindex $vw 0].pic]} {
+		} elseif {[file isfile $radvar(PICTURE)_[lindex $vw 0].pic]} {
 			lappend fpics [lindex $vw 0]
 		}
 	}