diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp
index a647df044f957de85cc8ebf3ddf385843fd38726..fbc7129bc6183821de5ebcf573ed19462dd48034 100644
--- a/compiler/sparc/type-vops.lisp
+++ b/compiler/sparc/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.3 1990/12/17 19:35:36 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.4 1991/01/09 02:11:51 wlott Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the SPARC.
@@ -84,12 +84,8 @@
     (move result value)))
 (primitive-type-vop check-list (:check) list)
 
-#+nil ;; ### Only after we have real structures.
 (def-type-vops structurep check-structure structure
-  object-not-structure vm:structure-pointer-type)
-
-(def-type-vops structurep check-structure structure
-  object-not-structure-error vm:structure-header-type))
+  object-not-structure-error vm:structure-pointer-type)
 
 (def-type-vops bignump check-bigunm bignum
   object-not-bignum-error vm:bignum-type)