--- ray/src/util/gethelp3.6.tcl	1994/12/05 11:40:50	2.8
+++ ray/src/util/gethelp3.6.tcl	1995/10/17 21:28:18	2.11
@@ -27,7 +27,7 @@ proc gethelp {helpfile category topic} {	# Open help w
 		toplevel .helpwin -cursor top_left_arrow
 		wm minsize .helpwin 500 400
 		wm iconbitmap .helpwin question
-		frame .helpwin.but -geometry 150x400
+		frame .helpwin.but -width 150 -height 400
 		pack .helpwin.but -side right -fill none -expand no
 		label .helpwin.but.lab -textvariable curhelp(title)
 		place .helpwin.but.lab -relx .1667 -rely 0
@@ -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} {
@@ -144,6 +144,8 @@ proc helpopen fname {			# open the named help file
 			}
 		}
 		if {! [catch {set fi [open $ifile w]}]} {
+			puts $fi "# This is an automatically created index\
+					file -- DO NOT EDIT!"
 			writevars $fi helpindex
 			close $fi
 			catch {exec chmod 666 $ifile}