--- tests/arith.pure.lisp.old	2010-04-30 13:58:12.000000000 +0300
+++ tests/arith.pure.lisp	2010-05-13 18:34:42.000000000 +0300
@@ -365,3 +365,8 @@
 (with-test (:name :gcd)
   (assert (plusp (gcd 20286123923750474264166990598656
                       680564733841876926926749214863536422912))))
+
+;;Check that (expt 0.0 0.0) and (expt 0 0.0) signal error, but (expt 0.0 0) returns 1.0
+(assert (raises-error? (expt 0.0 0.0)))
+(assert (raises-error? (expt 0 0.0)))
+(assert (eq (expt 0.0 0) 1.0))