diff --git a/tools/fixheader b/tools/fixheader
new file mode 100755
index 0000000000000000000000000000000000000000..e473cdff4c22ad256b631087a89bba6c5989e125
--- /dev/null
+++ b/tools/fixheader
@@ -0,0 +1,35 @@
+#!/bin/csh -f
+
+foreach file ($argv)
+	set range = (`fgrep -n ';;; ***********' $file | sed -e '3,$d' -e 's/:.*//'`)
+	if ($#range < 2) then
+		echo '**********' $file'': Could not find the header comment.
+		goto nextfile
+	endif
+	if ($range[2] > 12) then
+		echo '**********' $file'': Large header comment, you deal with it.
+		goto nextfile
+	endif
+
+	echo fixing $file
+
+	ed $file <<END_OF_ED_STUFF
+$range[1],$range[2]d
+$range[1]i
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of CMU Common Lisp, please contact
+;;; Scott Fahlman or slisp-group@cs.cmu.edu.
+;;;
+(ext:file-comment
+  "\$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/fixheader,v 1.1 1991/03/08 19:51:13 ram Exp $")
+;;;
+;;; **********************************************************************
+.
+w
+q
+END_OF_ED_STUFF
+
+	nextfile:
+end