diff --git a/compiler/mips/type-vops.lisp b/compiler/mips/type-vops.lisp
index de450a7abb4d1921e4128cf0e50b357ff5686b38..6a41b9ddf68f54e09c0915fd2d83959811f4d8a4 100644
--- a/compiler/mips/type-vops.lisp
+++ b/compiler/mips/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.19 1990/07/03 06:31:21 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/type-vops.lisp,v 1.20 1990/07/03 07:12:38 wlott Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the RT.
@@ -280,7 +280,7 @@
 
 (define-vop (check-signed-byte-32 check-hairy-type)
   (:generator 45
-    (let ((nope (generate-error-code object-not-signed-byte-32-error obj))
+    (let ((nope (generate-error-code vop object-not-signed-byte-32-error obj))
 	  (yep (gen-label)))
       (inst and temp obj #x3)
       (inst beq temp zero-tn yep)
@@ -352,7 +352,8 @@
 
 (define-vop (check-unsigned-byte-32 check-hairy-type)
   (:generator 45
-    (let ((nope (generate-error-code object-not-unsigned-byte-32-error obj))
+    (let ((nope
+	   (generate-error-code vop object-not-unsigned-byte-32-error obj))
 	  (yep (gen-label))
 	  (fixnum (gen-label))
 	  (single-word (gen-label)))
@@ -425,7 +426,7 @@
 		    ,@body))
 		(define-vop (,check-name check-list-symbol)
 		  (:generator 8
-		    (let ((target (generate-error-code ,error-code obj))
+		    (let ((target (generate-error-code vop ,error-code obj))
 			  (not-p t))
 		      ,@body
 		      (move res obj)))))))