diff --git a/build/build.tcl b/build/build.tcl
index 38747600..885e7e57 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -2025,6 +2025,7 @@ respond "_" "nschem;scheme macros_schmac lsp\r"
 respond "_" "nschem;scheme uuohan_schuuo lsp\r"
 respond "_" "\032"
 type ":kill\r"
+respond "*" ":lisp scheme (dump)\r"
 
 bootable_tapes
 
diff --git a/src/nschem/scheme.(dump) b/src/nschem/scheme.(dump)
new file mode 100644
index 00000000..c5b381d0
--- /dev/null
+++ b/src/nschem/scheme.(dump)
@@ -0,0 +1,13 @@
+(comment)
+(progn
+  (close (prog1 infile (inpush -1)))
+  (load "nschem; scheme interp")
+  (load "nschem; scheme macros")
+  (load "nschem; scheme uuohan")
+  (sstatus toplevel '(toplevel))
+  (sstatus feature noldmsg)
+  (gctwa)
+  (gc)
+  (sstatus flush t)
+  (suspend ":KILL " (list '(dsk sys3) 'ts 'scheme))
+  (scheme t '|SCHEME: Top Level|))