diff --git a/tools/inst-lisp b/tools/inst-lisp
index 4de033b0384e956b738b7a9a0b20a142a6eac97f..87d5cc238347143e47be7be0aa93cf52aa4eeddb 100755
--- a/tools/inst-lisp
+++ b/tools/inst-lisp
@@ -1,18 +1,24 @@
 #!/bin/csh -fx
 #
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.7 1993/08/16 18:45:54 wlott Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.8 1994/03/17 17:34:25 ram Exp $
 #
 # Utility for installing an alpha core.
 #
 
-if ($#argv) then
+if ($#argv > 0) then
 	set subdir = $argv[1]
 else
 	set subdir = alpha
 endif
 
+if ($#argv > 1) then
+	set destver = $argv[2]
+else
+	set destver = alpha
+endif
+
 set src = /afs/cs/project/clisp/build/@sys/$subdir
-set dst = /afs/cs/project/clisp-3/alphas/@sys
+set dst = /afs/cs/project/clisp-3/${destver}s/@sys
 
 rm -f $dst/lisp
 rm -f $dst/lisp.core