diff --git a/build/build.tcl b/build/build.tcl
index 636c5e64..cfccd462 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -217,17 +217,12 @@ respond "*" ":link sys2;ts emacs,emacs;ts >\r"
 respond "*" ":emacs\r"
 respond "EMACS Editor" "\033xrun\033einit\033? Generate\r"
 expect "EINIT"
-respond ":EJ" "\030\003"
-respond "*" ":kill\r"
-respond "*" ":delete emacs;\[prfy\] <\r"
-
-respond "*" ":emacs\r"
-respond "for help" "\033xload\033purify\r"
-type "\033xgenerate\033emacs;aux\033emacs1;aux\r"
+respond ":EJ" "\033xgenerate\033emacs;aux\033emacs1;aux\r"
 respond ":EJ" "\030\003"
 respond "*" ":kill\r"
 
 respond "*" ":delete emacs;ts 126\r"
+respond "*" ":delete \[prfy\] <\r"
 respond "*" ":delete \[pure\] 162\r"
 respond "*" ":rename \[pure\] 163, \[pure\] 162\r"