diff --git a/Numeric/RAD.hs b/Numeric/RAD.hs
--- a/Numeric/RAD.hs
+++ b/Numeric/RAD.hs
@@ -229,7 +229,7 @@
 
 instance Floating a => Floating (RAD s a) where
     pi      = lift pi
-    exp     = unary exp id
+    exp     = unary exp exp
     log     = unary log recip
     sqrt    = unary sqrt (recip . (2*) . sqrt)
     RAD (C x) ** RAD (C y) = lift (x ** y)
diff --git a/rad.cabal b/rad.cabal
--- a/rad.cabal
+++ b/rad.cabal
@@ -1,5 +1,5 @@
 Name:                rad
-Version:             0.1
+Version:             0.1.1
 License:             BSD3
 License-File:        LICENSE
 Copyright:           Edward Kmett 2010