diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp
index 879ef2f8b37b427d4bfed449a2d5db700839b236..2c76ca22ce8390f4e9c3d51e8a804a1e80750529 100644
--- a/compiler/generic/vm-type.lisp
+++ b/compiler/generic/vm-type.lisp
@@ -1,4 +1,4 @@
-;;; -*- Package: C; Log: C.Log -*-
+;;; -*- Package: KERNEL; Log: C.Log -*-
 ;;;
 ;;; **********************************************************************
 ;;; This code was written as part of the Spice Lisp project at
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.5 1990/03/26 22:01:46 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.6 1990/03/27 17:18:50 wlott Exp $
 ;;;
 ;;;    This file contains implementation-dependent parts of the type support
 ;;; code.  This is stuff which deals with the mapping from types defined in
@@ -15,19 +15,23 @@
 ;;;
 ;;; Written by Rob MacLachlan
 ;;;
-(in-package "C")
+(in-package "KERNEL")
 
+
 ;;;; Implementation dependent deftypes:
 
+(#-new-compiler progn
+ #+new-compiler defun #+new-compiler vm-type-init #+new-compiler ()
+
 ;;; Make double-float a synonym for long-float, single-float for Short-Float.
 ;;; This is be expanded before the translator gets a chance, so we will get
 ;;; precedence.
 ;;;
-(deftype double-float (&optional low high)
-  `(long-float ,low ,high))
+(deftype long-float (&optional low high)
+  `(double-float ,low ,high))
 ;;;
-(deftype single-float (&optional low high)
-  `(short-float ,low ,high))
+(deftype short-float (&optional low high)
+  `(single-float ,low ,high))
 
 ;;; Compiled-function is the same as function in this implementation.
 ;;;
@@ -85,6 +89,8 @@
 ;;; Internal time format.  Not a fixnum (blag...)
 (deftype internal-time () 'unsigned-byte)
 
+); defun vm-type-init
+
 
 ;;;; Hooks into type system:
 
@@ -101,8 +107,8 @@
 (proclaim '(function float-format-name (float) symbol))
 (defun float-format-name (x)
   (etypecase x
-    (short-float 'short-float)
-    (long-float 'long-float)))
+    (single-float 'short-float)
+    (double-float 'double-float)))
 
 ;;; Specialize-Array-Type  --  Internal
 ;;;