diff --git a/tools/inst-lisp b/tools/inst-lisp
new file mode 100755
index 0000000000000000000000000000000000000000..fd6a07188b3d80611b6a33cdd866f53e739a4b09
--- /dev/null
+++ b/tools/inst-lisp
@@ -0,0 +1,14 @@
+#!/bin/csh -fx
+
+if ($#argv) then
+	set subdir = $argv[1]
+else
+	set subdir = alpha
+endif
+
+set src = /afs/cs/project/clisp/new-compiler/@sys/$subdir
+set dst = /afs/cs/misc/cmucl/@sys/alpha
+
+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
diff --git a/tools/mk-lisp b/tools/mk-lisp
new file mode 100755
index 0000000000000000000000000000000000000000..f69ca297281f406f72b3614e74da7d1040df8803
--- /dev/null
+++ b/tools/mk-lisp
@@ -0,0 +1,36 @@
+#!/bin/csh -f
+
+if ($#argv) then
+	set subdir = $argv[1]
+else
+	set subdir = alpha
+endif
+
+set date = `/bin/date | awk '{print $2 "-" $3 "-" $6}'`
+
+# set a bunch of random env vars to fill up space.
+setenv FOO XXXXXXXXXXXXXXXX
+setenv FOO $FOO$FOO$FOO$FOO
+setenv FOO $FOO$FOO$FOO$FOO
+setenv BAR $FOO
+setenv BAZ $FOO
+setenv ACK $FOO
+
+echo Building lisp.core dated $date from the \`\`$subdir\'\' subdir.
+
+/afs/cs/project/clisp/new-compiler/@sys/$subdir/ldb/ldb -core /afs/cs/project/clisp/new-compiler/@sys/$subdir/ldb/kernel.core << EOF
+#+nil (push :no-xp *features*)
+#+nil (push :no-clx *features*)
+#+nil (push :no-hemlock *features*)
+#+nil (push :no-pcl *features*)
+(setf (search-list "lisp:")
+      '("/afs/cs/project/clisp/new-compiler/@sys/$subdir/"))
+(in-package "USER")
+(load (open "lisp:code/worldload.lisp"))
+$date
+$date
+$date
+(quit)
+EOF
+
+echo 
diff --git a/tools/updates b/tools/updates
new file mode 100755
index 0000000000000000000000000000000000000000..8e569f148e045ed6c05bf2d901d75d8345b47be4
--- /dev/null
+++ b/tools/updates
@@ -0,0 +1,35 @@
+#!/bin/csh -f
+
+set from = ""
+set to = ""
+set dirs = ()
+
+while ($#argv > 0)
+	if ("$argv[1]" !~ -*) then
+		set dirs = ($dirs $argv[1])
+	else
+		switch ($argv[1])
+			case "-from":
+				set from = $argv[2]
+				shift
+				breaksw
+			case "-to":
+				set from = $argv[2]
+				shift
+				breaksw
+			default:
+				echo "Bogus switch: $argv[1]"
+				exit
+		endsw
+	endif
+	shift
+end
+
+if ($#dirs == 0) set dirs = .
+
+find $dirs -follow -name '*,v' -print | \
+    rlog - "-d$from<$to" | \
+    sed -n -e '/^RCS file:/p' -e '/^------/,/^======/p' | \
+    sed -e '/^RCS file:/{;:again\
+	N;s/^RCS file.*\nRCS file/RCS file/;t again\
+	}'