diff --git a/build/build.tcl b/build/build.tcl
index 1911e435..934b7d88 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -93,7 +93,7 @@ proc build_macsyma_portion {} {
     }
     type "(mapcan "
     type "#'(lambda (x) (cond ((not (memq x\r"
-    type "'(TRANSS EDLM)\r"
+    type "'(EDLM)\r"
     type ")) (doit x)))) (append todo todoi))"
     set timeout 1000
     expect {
diff --git a/src/maxdoc/files.72 b/src/maxdoc/files.73
old mode 100755
new mode 100644
similarity index 99%
rename from src/maxdoc/files.72
rename to src/maxdoc/files.73
index c0355282..8eab9abf
--- a/src/maxdoc/files.72
+++ b/src/maxdoc/files.73
@@ -357,7 +357,6 @@
   UNFASL-DIR 'MUNFAS)
 (DEFMFILE TRANSL TRHOOK) ; used to implement translator modularity on the PDP-10.
 (DEFMFILE TRANSL TRUTIL) ; Utilties.
-(DEFMFILE TRANSL TRANSS) ; The system and user hacking part of transl.
 (DEFMFILE TRANSL TRANSL) ; Toplevel expression translate and basic special forms.
 (DEFMFILE TRANSL TRANS1) ; Translation properties by general grouping.
 (DEFMFILE TRANSL TRANS2) ; ITS filenames don't allow more detail, see TRANSL >
@@ -379,6 +378,8 @@
   SYSTEMS-FOR '(ITS))
 (DEFMFILE TRANSL TRDEBG) ; For debugging translated code.
 (DEFMFILE TRANSL MTAGS)  ; generates macsyma-user TAGS while translating.
+;; must follow mtags or else compilation errors
+(DEFMFILE TRANSL TRANSS) ; The system and user hacking part of transl.
 
 ;; Numerical stuff.
 (DEFMFILE MAXSRC ROMBRG)
@@ -480,4 +481,4 @@
   FASL-DIR 'EMAXIM)
 (DEFMFILE EMAXIM EDLM
   SYSTEMS-FOR '(LISPM))
-
\ No newline at end of file
+