Index: /trunk/ccl/level-0/l0-float.lisp
===================================================================
--- /trunk/ccl/level-0/l0-float.lisp	(revision 546)
+++ /trunk/ccl/level-0/l0-float.lisp	(revision 547)
@@ -700,5 +700,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)))))
     ((short-float rational)