diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index c866d0977997819794c8df2a16f2726f8093150d..96945ae0586d23ab067b58b8e26b6f443de08b4a 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.42 1992/07/22 22:49:44 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.43 1992/08/02 19:41:09 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.42 1992/07/22 22:49:44 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.43 1992/08/02 19:41:09 ram Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -686,6 +686,11 @@
 	     (:fdefinition
 	      (dump-object (cdr entry) file)
 	      (dump-fop 'lisp::fop-fdefinition file))
+	     (:type-predicate
+	      (dump-object 'load-type-predicate file)
+	      (dump-object (type-specifier (cdr entry)) file)
+	      (dump-fop 'lisp::fop-funcall file)
+	      (dump-byte 1 file))
 	     (:xep
 	      (xep-patches (cons (cdr entry) i))
 	      (dump-fop 'lisp::fop-misc-trap file)))))))