Index: /trunk/ccl/level-0/l0-float.lisp
===================================================================
--- /trunk/ccl/level-0/l0-float.lisp	(revision 530)
+++ /trunk/ccl/level-0/l0-float.lisp	(revision 531)
@@ -684,5 +684,5 @@
       (if (and (<= -1.0d0 x)
                (<= x 1.0d0))
-        (%double-float-acos! x (%make-sfloat))
+        (%double-float-acos! x (%make-dfloat))
         (- double-float-half-pi (asin x))))
     (ppc32::with-stack-short-floats ((sx x))