diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 50da182a8..e249d347c 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -165,6 +165,7 @@
 	(*print-array* t)
 	(*print-readably* t)
 	(*read-default-float-format* 'single-float)
+        (*readtable* (si::standard-readtable))
 	(sys::*print-package* (find-package "CL"))
 	(sys::*print-structure* t)
 	(output nil))