diff --git a/compiler/x86/insts.lisp b/compiler/x86/insts.lisp
index 303c211c225d99470e205cf42a3f9b7b8b07373b..2173386e068292891e55e38b8835d21b393e8c00 100644
--- a/compiler/x86/insts.lisp
+++ b/compiler/x86/insts.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.23 2001/06/26 03:14:43 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/insts.lisp,v 1.24 2002/09/19 17:46:03 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -433,7 +433,7 @@
 							   nil
 							   dstate)
 		    (let ((offs (- offset disassem::nil-addr)))
-		      (when (typep offs 'offset)
+		      (when (typep offs 'disassem::offset)
 			(or (disassem::maybe-note-nil-indexed-symbol-slot-ref offs
 									      dstate)
 			    (disassem::maybe-note-static-function offs dstate))))))
@@ -445,7 +445,7 @@
     (if (zerop offset)
 	(format stream "#x~X" value)
 	(format stream "~A" value))
-    (when (typep offset 'offset)
+    (when (typep offset 'disassem::offset)
       (or (disassem::maybe-note-nil-indexed-object offset dstate)
 	  (disassem::maybe-note-assembler-routine value stream dstate)
 	  (nth-value 1
@@ -1553,7 +1553,7 @@
 	     ((register-p that)
 	      (test-reg-and-something that this))
 	     (t
-	      (error "Bogus operans for TEST: ~S and ~S" this that)))))))
+	      (error "Bogus operands for TEST: ~S and ~S" this that)))))))
 
 (define-instruction or (segment dst src)
   (:printer-list