Index: /trunk/source/level-0/l0-float.lisp
===================================================================
--- /trunk/source/level-0/l0-float.lisp	(revision 13768)
+++ /trunk/source/level-0/l0-float.lisp	(revision 13769)
@@ -840,4 +840,8 @@
            (%single-float-expt (%short-float b) (%short-float e))
            ))
+	((typep (realpart e) 'double-float)
+	 ;; Avoid intermediate single-float result from LOG
+	 (let ((promoted-base (* 1d0 b)))
+	   (exp (* e (log promoted-base)))))
         (t (exp (* e (log b))))))