--- ray/src/util/gethelp3.6.tcl	1994/12/05 11:40:50	2.8
+++ ray/src/util/gethelp3.6.tcl	1995/01/03 16:06:45	2.9
@@ -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}