diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp
index e4299ec1f..cd8313ddc 100755
--- a/contrib/bytecmp/bytecmp.lsp
+++ b/contrib/bytecmp/bytecmp.lsp
@@ -96,7 +96,9 @@
          (with-open-file (sout output-file :direction :output :if-exists :supersede
                                :if-does-not-exist :create
 			       :external-format external-format)
-	   (let ((binary (loop with *package* = *package*
+	   (let ((binary (loop
+			    with *package* = *package*
+			    with *readtable* = *readtable*
 			    with ext:*bytecodes-compiler* = t
 			    for position = (file-position input)
 			    for form = (read input nil :EOF)
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 3df99c759..50edbe8f7 100755
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -553,6 +553,7 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
                            (*error-output* *error-output*)
                            (*compiler-in-use* *compiler-in-use*)
                            (*package* *package*)
+                           (*readtable* *readtable*)
                            (*print-pretty* nil)
                            (*compile-file-pathname* nil)
                            (*compile-file-truename* nil)
diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp
index 9513dcebe..97b1280c7 100644
--- a/src/new-cmp/cmpmain.lsp
+++ b/src/new-cmp/cmpmain.lsp
@@ -456,6 +456,7 @@ static cl_object VV[VM];
                            (*error-output* *error-output*)
                            (*compiler-in-use* *compiler-in-use*)
                            (*package* *package*)
+                           (*readtable* *readtable*)
                            (*print-pretty* nil)
                            (*compile-file-pathname* nil)
                            (*compile-file-truename* nil)