diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 5ed09c803c6e6e407c85371d2b67ceef9b9ea0bd..6981e33cf722f8efeee7d56febd1c8c66b4e86bc 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.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/sparc/float.lisp,v 1.13 1998/01/21 05:10:19 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.14 1998/01/21 10:10:06 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -142,7 +142,7 @@
 		  :offset (tn-offset x)))
 (defun complex-double-reg-imag-tn (x)
   (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg *backend*)
-		  :offset (1+ (tn-offset x))))
+		  :offset (+ (tn-offset x) 2)))
 
 
 (define-move-function (load-complex-single 2) (vop x y)
diff --git a/compiler/sparc/vm.lisp b/compiler/sparc/vm.lisp
index 8b9e47c918fe9cf0d9bbff70b0d2dded518eb3d7..bd7c965c003df0f52858fe4e3fcd22423795d960 100644
--- a/compiler/sparc/vm.lisp
+++ b/compiler/sparc/vm.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/sparc/vm.lisp,v 1.8 1998/01/21 05:10:17 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/vm.lisp,v 1.9 1998/01/21 10:10:05 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -149,10 +149,11 @@
   (double-stack non-descriptor-stack
 		:element-size 2 :alignment 2) ; double floats.
   #+complex-float
-  (complex-single-stack stack :element-size 2)	; complex-single-floats
+  ;; complex-single-floats
+  (complex-single-stack non-descriptor-stack :element-size 2)
   #+complex-float
-  (complex-double-stack stack
-			:element-size 4 :alignment 2) ; complex-double-floats.
+  ;; complex-double-floats.
+  (complex-double-stack non-descriptor-stack :element-size 4 :alignment 2)
 
 
   ;; **** Things that can go in the integer registers.