diff --git a/code/pred.lisp b/code/pred.lisp
index f22fd9446b94e92a760d7c5d95bd0a2c1c2be271..f08491ef7e9dfbcb62fa58174475f65eb4e19216 100644
--- a/code/pred.lisp
+++ b/code/pred.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.8 1990/09/08 14:59:24 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.9 1990/09/18 15:23:32 wlott Exp $
 ;;;
 ;;; Predicate functions for CMU Common Lisp.
 ;;;
@@ -70,6 +70,7 @@
       simple-vector-p
       single-float-p
       stringp
+      structurep
       symbolp
       system-area-pointer-p
       weak-pointer-p