diff --git a/tools/do-worldbuild b/tools/do-worldbuild
new file mode 100755
index 0000000000000000000000000000000000000000..0e3fd56d294514db40f5ec47c8a2696d4670cc1c
--- /dev/null
+++ b/tools/do-worldbuild
@@ -0,0 +1,28 @@
+#!/bin/csh -fx
+#
+#  do-worldbuild -- script to run worldbuild
+#
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/do-worldbuild,v 1.1 1991/12/08 03:09:10 wlott Exp $
+
+if ($#argv) then
+	set subdir = $argv[1]
+else
+	set subdir = alpha
+endif
+
+set dest = /afs/cs/project/clisp/build/@sys/$subdir
+set src = /afs/cs/project/clisp/src/$subdir
+
+if ($?LISP) then
+	set lisp = $LISP
+else
+	set lisp = lisp
+endif
+
+$lisp -noinit << EOF
+(setf (search-list "target:") '("$dest/" "$src/"))
+(load "target:tools/setup")
+(load "target:compiler/generic/genesis")
+(load "target:tools/worldbuild")
+(quit)
+EOF