diff --git a/tools/hemload.lisp b/tools/hemload.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..5f93c3011463ce37a7191ba658031019ee039d84
--- /dev/null
+++ b/tools/hemload.lisp
@@ -0,0 +1,122 @@
+;;;
+;;; **********************************************************************
+;;; 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/hemload.lisp,v 1.1 1991/06/10 16:26:23 chiles Exp $")
+;;;
+;;; **********************************************************************
+;;;
+;;; This file loads all of Hemlock.
+;;;
+
+;;; Stuff to set up the packages Hemlock uses.
+;;;
+(in-package "HEMLOCK-INTERNALS"
+	    :nicknames '("HI")
+	    :use '("LISP" "EXTENSIONS" "SYSTEM"))
+;;;
+(in-package "HEMLOCK"
+	    :nicknames '("ED")
+	    :use '("LISP" "HEMLOCK-INTERNALS" "EXTENSIONS" "SYSTEM"))
+;;;
+(in-package "SYSTEM")
+(export '(%sp-byte-blt %sp-find-character %sp-find-character-with-attribute
+		       %sp-reverse-find-character-with-attribute))
+;;;
+(in-package "HI")
+
+
+(defun build-hemlock ()
+  (load "hem:struct")
+;  (load "hem:struct-ed")
+  (load "hem:charmacs")
+  (load "hem:key-event")
+  (ext::re-initialize-key-events)
+  (load "hem:keysym-defs")
+  (load "hem:input")
+  (load "hem:line")
+  (load "hem:ring")
+  (load "hem:vars")
+  (load "hem:buffer")
+  (load "hem:macros")
+  (load "hem:interp")
+  (load "hem:syntax")
+  (load "hem:htext1")
+  (load "hem:htext2")
+  (load "hem:htext3")
+  (load "hem:htext4")
+  (load "hem:files")
+  (load "hem:search1")
+  (load "hem:search2")
+  (load "hem:table")
+  #+clx (load "hem:hunk-draw")
+;  (load "hem:bit-stream")
+  (load "hem:window")
+  (load "hem:screen")
+  (load "hem:winimage")
+  (load "hem:linimage")
+  (load "hem:display")
+  (load "hem:termcap")
+  #+clx (load "hem:bit-display")
+  (load "hem:tty-disp-rt")
+  (load "hem:tty-display")
+;  (load "hem:tty-stream")
+  (load "hem:pop-up-stream")
+  #+clx (load "hem:bit-screen")
+  (load "hem:tty-screen")
+  (load "hem:cursor")
+  (load "hem:font")
+  (load "hem:streams")
+  (load "hem:main")
+  (load "hem:hacks")
+  (%init-hemlock)
+  (load "hem:echo")
+  (load "hem:echocoms")
+  (load "hem:command")
+  (load "hem:indent")
+  (load "hem:comments")
+  (load "hem:morecoms")
+  (load "hem:undo")
+  (load "hem:killcoms")
+  (load "hem:searchcoms")
+  (load "hem:filecoms")
+  (load "hem:doccoms")
+  (load "hem:srccom")
+  (load "hem:group")
+  (load "hem:fill")
+  (load "hem:text")
+  (load "hem:lispmode")
+  (load "hem:ts-buf")
+  (load "hem:ts-stream")
+  (load "hem:eval-server")
+  (load "hem:lispbuf")
+  (load "hem:lispeval")
+  (load "hem:spell-rt")
+  (load "hem:spell-corr")
+  (load "hem:spell-aug")
+  (load "hem:spellcoms")
+  (load "hem:overwrite")
+  (load "hem:abbrev")
+  (load "hem:icom")
+  (load "hem:kbdmac")
+  (load "hem:defsyn")
+  (load "hem:scribe")
+  (load "hem:pascal")
+  (load "hem:edit-defs")
+  (load "hem:auto-save")
+  (load "hem:register")
+  (load "hem:xcoms")
+  (load "hem:unixcoms")
+  (load "hem:mh")
+  (load "hem:highlight")
+  (load "hem:dired")
+  (load "hem:diredcoms")
+  (load "hem:bufed")
+  (load "hem:lisp-lib")
+  (load "hem:completion")
+  (load "hem:shell")
+  (load "hem:bindings"))