diff --git a/code/numbers.lisp b/code/numbers.lisp
index 49efeeb9c4ff20f7152fcf119d47caea80f42cdd..433a06de5d68ea9697bd21514265da4b80347ea9 100644
--- a/code/numbers.lisp
+++ b/code/numbers.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/numbers.lisp,v 1.63 2007/08/28 23:55:46 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.64 2008/01/28 22:41:08 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -715,7 +715,7 @@
       (((foreach double-float single-float) long-float)
        (truncate-float long-float))
       #+double-double
-      ((double-double-float (or single-float double-float))
+      ((double-double-float (or single-float double-float double-double-float))
        (truncate-float double-double-float))
       #+double-double
       (((foreach single-float double-float) double-double-float)
@@ -725,7 +725,9 @@
       ((single-float double-float)
        (truncate-float double-float))
       (((foreach fixnum bignum ratio)
-	(foreach single-float double-float #+long-float long-float))
+	(foreach single-float double-float
+		 #+double-double double-double-float
+		 #+long-float long-float))
        (truncate-float (dispatch-type divisor))))))