Index: /trunk/ccl/level-0/l0-float.lisp
===================================================================
--- /trunk/ccl/level-0/l0-float.lisp	(revision 306)
+++ /trunk/ccl/level-0/l0-float.lisp	(revision 307)
@@ -603,5 +603,6 @@
 
 (defun expt (b e)
-  (cond ((integerp e)
+  (cond ((zerop e) (1+ (* b e)))
+	((integerp e)
          (if (minusp e) (/ 1 (%integer-power b (- e))) (%integer-power b e)))
         ((zerop b)