diff --git a/compiler/mips/vm.lisp b/compiler/mips/vm.lisp
index f9da42b2ac1b1a716640fba988e1f09793bc7b31..504656d1c7c26416fd50bce5f4fc999cf8d34d03 100644
--- a/compiler/mips/vm.lisp
+++ b/compiler/mips/vm.lisp
@@ -7,12 +7,12 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.10 1990/02/24 17:03:52 ch Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/vm.lisp,v 1.11 1990/02/25 18:35:05 ch Exp $
 ;;;
 ;;; This file contains the VM definition for the MIPS R2000 and the new
 ;;; object format.
 ;;;
-;;; Written by Christopher Hoover.
+;;; Written by Christopher Hoover and William Lott.
 ;;;
 (in-package "C")
 
@@ -196,6 +196,8 @@
 (def-primitive-type bignum (descriptor-reg control-stack))
 (def-primitive-type ratio (descriptor-reg control-stack))
 (def-primitive-type complex (descriptor-reg control-stack))
+(def-primitive-type single-float (descriptor-reg control-stack))
+(def-primitive-type double-float (descriptor-reg control-stack))
 
 ;;;
 (def-primitive-type simple-string (descriptor-reg control-stack))