diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 04d6119f9814a0d04f41dc3695ddf02109cb93c7..1bce8da4f0c94dd0e4623ae4c54bc6a32c8caffc 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.20 1990/10/23 02:38:51 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.21 1990/10/23 03:19:05 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -416,7 +416,10 @@
   (quick-dump-number length 4 file)
   (let ((fixups (emit-code-vector (fasl-file-stream file) code-segment)))
     (dolist (routine routines)
-      (dump-object (car routine) file)
+      (dump-fop 'lisp::fop-normal-load file)
+      (let ((*cold-load-dump* t))
+	(dump-object (car routine) file))
+      (dump-fop 'lisp::fop-maybe-cold-load file)
       (dump-fop 'lisp::fop-assembler-routine file)
       (quick-dump-number (label-position (cdr routine)) 4 file))
     (let ((handle (dump-pop file)))