diff --git a/build/build.tcl b/build/build.tcl
index 40e4e684..a0d3b9a3 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -260,7 +260,8 @@ respond "EMACS Editor" "\033xload\033purify\r"
 respond "\n" "\033xgenerate\033emacs;info\033emacs1;info\r"
 respond ":EJ" "\033xbare\033emacs1;bare\r"
 respond "\n" "\033xgenerate\033emacs;abstr\033emacs1;abstr\r"
-#respond ":EJ" "\033xgenerate\033emacs;auto-s\033emacs1;auto-s\r"
+respond ":EJ" "\025\033x& compress file\033emacs1;auto-s\r"
+respond "Compressing file" "\033xgenerate\033emacs;auto-s\033emacs1;auto-s\r"
 respond ":EJ" "\033xgenerate\033emacs;dired\033emacs1;dired\r"
 respond ":EJ" "\033xgenerate\033emacs;tags\033emacs1;tags\r"
 respond ":EJ" "\033xgenerate\033emacs;taggen\033emacs1;taggen\r"
diff --git a/src/emacs1/auto-s.118 b/src/emacs1/auto-s.119
similarity index 99%
rename from src/emacs1/auto-s.118
rename to src/emacs1/auto-s.119
index 44b5c0f1..7f8a7a43 100755
--- a/src/emacs1/auto-s.118
+++ b/src/emacs1/auto-s.119
@@ -14,7 +14,7 @@ must take care of setting keys, fsClkMacro, fsClkInterval, ..F and
 
  [1[k
 
- !* First make sure no previous MM-variables are going to cover our functions:!
+ !* First make sure no previous MM-variables are going to cover our functions: !
 
  m.mKill Variableuk			!* K: Killer.!
  mkMM & Auto Save Setupw		!* Kill kill kill!