diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 4539da589902def3759ef98cea3f69986a70358b..937620ba53e92a6e5b221f4bdca13dc01d257381 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.26 1990/11/20 15:51:27 chiles Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.27 1990/12/02 11:49:16 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -773,13 +773,13 @@
   (etypecase x
     (single-float
      (dump-fop 'lisp::fop-single-float file)
-     (quick-dump-number (vm:single-float-bits x) 4 file))
+     (quick-dump-number (single-float-bits x) 4 file))
     (double-float
      (dump-fop 'lisp::fop-double-float file)
      (let ((x x))
        (declare (double-float x))
-       (quick-dump-number (vm:double-float-low-bits x) 4 file)
-       (quick-dump-number (vm:double-float-high-bits x) 4 file)))))
+       (quick-dump-number (double-float-low-bits x) 4 file)
+       (quick-dump-number (double-float-high-bits x) 4 file)))))
 
 
 ;;;; Symbol Dumping: