diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp
index 420635a45175c63841ce0cbaf4b4866a8e15a68d..a315a38a1bb2f480eb50f6c02426d64a50251a27 100644
--- a/compiler/disassem.lisp
+++ b/compiler/disassem.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.41 2003/06/11 12:52:55 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.42 2003/06/27 15:54:25 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2016,11 +2016,11 @@
 (defun fun-address (function)
   (declare (type compiled-function function))
   (ecase (kernel:get-type function)
-    (vm:function-header-type
+    (#.vm:function-header-type
      (- (kernel:get-lisp-obj-address function) vm:function-pointer-type))
-    (vm:closure-header-type
+    (#.vm:closure-header-type
      (fun-address (kernel:%closure-function function)))
-    (vm:funcallable-instance-header-type
+    (#.vm:funcallable-instance-header-type
      (fun-address (kernel:funcallable-instance-function function)))))
 
 (defun fun-insts-offset (function)