--- ray/src/util/gethelp3.6.tcl	1995/07/24 13:31:24	2.10
+++ ray/src/util/gethelp3.6.tcl	2003/02/22 02:07:30	2.12
@@ -1,4 +1,4 @@
-# SCCSid "$SunId$ LBL"
+# RCSid: $Id: gethelp3.6.tcl,v 2.12 2003/02/22 02:07:30 greg Exp $
 #
 # Get help from a file, formatted like so:
 #
@@ -129,7 +129,7 @@ proc helpopen fname {			# open the named help file
 	.helpwin.txt insert end "Loading $fname..."
 	update
 	set curhelp(fid) [open $fname r]
-	if {! [file exists $ifile] ||
+	if {! [file isfile $ifile] ||
 			[file mtime $fname] > [file mtime $ifile]} {
 		set helpindex(catlist) {}
 		while {[gets $curhelp(fid) li] >= 0} {