diff --git a/tools/inst-lisp b/tools/inst-lisp
index 028ea6baf3c21518148553654951eddaa0ca3821..ae4f5fe9e203461b53c7dfd60b39ab9a6a5be456 100755
--- a/tools/inst-lisp
+++ b/tools/inst-lisp
@@ -1,4 +1,9 @@
 #!/bin/csh -fx
+#
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.3 1992/05/27 18:13:12 wlott Exp $
+#
+# Utility for installing an alpha core.
+#
 
 if ($#argv) then
 	set subdir = $argv[1]
@@ -7,8 +12,8 @@ else
 endif
 
 set src = /afs/cs/project/clisp/build/@sys/$subdir
-set dst = /afs/cs/misc/cmucl/@sys/alpha
+set dst = /afs/cs/project/clisp-3/alphas/@sys
 
-rm -f $dst/bin/lisp $dst/lib/lisp.core
-cp -p $src/ldb/ldb $dst/bin/lisp
-cp -p lisp.core $dst/lib/lisp.core
+rm -f $dst/lisp $dst/lisp.core
+cp -p $src/ldb/ldb $dst/lisp
+cp -p lisp.core $dst/lisp.core