diff --git a/code/irrat-dd.lisp b/code/irrat-dd.lisp
index 5fb260e56a01c02758edb54c604ad0f1875cf1ca..0c814fba95732ccfa4f699b639fe52df3dfec936 100644
--- a/code/irrat-dd.lisp
+++ b/code/irrat-dd.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/irrat-dd.lisp,v 1.3 2006/07/07 18:26:43 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/irrat-dd.lisp,v 1.4 2006/07/13 19:54:47 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1483,7 +1483,7 @@ pi/4    11001001000011111101101010100010001000010110100011000 010001101001100010
 			(float-infinity-p rho))
 		    (or (float-infinity-p (abs x))
 			(float-infinity-p (abs y))))
-	       (values (%make-double-double-float ext:double-float-positive-infinity 0w0)
+	       (values (%make-double-double-float ext:double-float-positive-infinity 0d0)
 		       0))
 	      ((let ((threshold #.(/ least-positive-double-float
 				     double-float-epsilon))