diff --git a/compiler/sparc/vm.lisp b/compiler/sparc/vm.lisp
index 1663ab498de8beb81569cfd19099682a91313dd1..d0b13b2b0a21e0e5b08045f61315f0c1a079ac26 100644
--- a/compiler/sparc/vm.lisp
+++ b/compiler/sparc/vm.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.1 1990/11/30 17:03:26 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.2 1990/12/01 22:33:57 wlott Exp $
 ;;;
 ;;; This file contains the VM definition for the SPARC.
 ;;;
@@ -141,7 +141,8 @@
   (base-character-stack non-descriptor-stack) ; non-descriptor characters.
   (sap-stack non-descriptor-stack) ; System area pointers.
   (single-stack non-descriptor-stack) ; single-floats
-  (double-stack non-descriptor-stack :element-size 2) ; double floats.
+  (double-stack non-descriptor-stack
+		:element-size 2 :alignment 2) ; double floats.
 
 
   ;; **** Things that can go in the integer registers.
@@ -212,7 +213,7 @@
   (double-reg float-registers
    :locations (0 2 4 6 8 10 12 14 16 18 20 22 24 26 28 30)
    ;; ### Note: load-tns don't work with an element-size other than 1.
-   ;; :element-size 2
+   ;; :element-size 2 :alignment 2
    :constant-scs ()
    :save-p t
    :alternate-scs (double-stack))