--- a/src/compiler/disassem.lisp
+++ b/src/compiler/disassem.lisp
@@ -2470,7 +2470,7 @@
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
-  (format stream "~a~vt" 'BYTE (dstate-argument-column dstate))
+  (format stream "~a~vt" '.BYTE (dstate-argument-column dstate))
   (let ((sap (dstate-segment-sap dstate))
 	(start-offs (dstate-cur-offs dstate)))
     (dotimes (offs num)
@@ -2483,7 +2483,7 @@
   (declare (type offset num)
 	   (type stream stream)
 	   (type disassem-state dstate))
-  (format stream "~a~vt" 'WORD (dstate-argument-column dstate))
+  (format stream "~a~vt" '.WORD (dstate-argument-column dstate))
   (let ((sap (dstate-segment-sap dstate))
 	(start-offs (dstate-cur-offs dstate))
 	(byte-order (dstate-byte-order dstate)))