diff --git a/code/debug-int.lisp b/code/debug-int.lisp
index dfe9ab12397d2a2d0a9e695b2f695115c9d2f6c5..c24be4311b93f01db2a67bc13e0527b56fda0c99 100644
--- a/code/debug-int.lisp
+++ b/code/debug-int.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/code/debug-int.lisp,v 1.124 2007/03/27 00:58:33 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.125 2007/03/27 17:46:26 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3199,7 +3199,7 @@ The result is a symbol or nil if the routine cannot be found."
 	      'double-float))
 	    (kernel:%make-double-double-float
 	     (vm:sigcontext-float-register
-	      escaped (+ (c:sc-offset-offset sc-offset) #+sparc 4 #+sparc 2)
+	      escaped (+ (c:sc-offset-offset sc-offset) #+sparc 4 #-sparc 2)
 	      'double-float)
 	     (vm:sigcontext-float-register
 	      escaped (+ (c:sc-offset-offset sc-offset) #+sparc 6 #-sparc 3)