diff --git a/Data/Number/LogFloat.hs b/Data/Number/LogFloat.hs
--- a/Data/Number/LogFloat.hs
+++ b/Data/Number/LogFloat.hs
@@ -193,8 +193,8 @@
 -- | A constructor which does semantic conversion from normal-domain
 -- to log-domain.
 
-{-# SPECIALIZE logFloat :: Double -> LogFloat #-}
 logFloat :: (Real a, RealToFrac a Double) => a -> LogFloat
+{-# SPECIALIZE logFloat :: Double -> LogFloat #-}
 logFloat  = LogFloat . log . guardNonNegative "logFloat" . realToFrac
 
 
@@ -207,26 +207,23 @@
 --
 -- | Constructor which assumes the argument is already in the
 -- log-domain.
-
-{-# SPECIALIZE logToLogFloat :: Double -> LogFloat #-}
 logToLogFloat :: (Real a, RealToFrac a Double) => a -> LogFloat
+{-# SPECIALIZE logToLogFloat :: Double -> LogFloat #-}
 logToLogFloat  = LogFloat . guardIsANumber "logToLogFloat" . realToFrac
 
 
 -- | Return our log-domain value back into normal-domain. Beware
 -- of overflow\/underflow.
-
-{-# SPECIALIZE fromLogFloat :: LogFloat -> Double #-}
 fromLogFloat :: (Fractional a, Transfinite a, RealToFrac Double a)
              => LogFloat -> a
+{-# SPECIALIZE fromLogFloat :: LogFloat -> Double #-}
 fromLogFloat (LogFloat x) = realToFrac (exp x)
 
 
 -- | Return the log-domain value itself without costly conversion
-
-{-# SPECIALIZE logFromLogFloat :: LogFloat -> Double #-}
 logFromLogFloat :: (Fractional a, Transfinite a, RealToFrac Double a)
                 => LogFloat -> a
+{-# SPECIALIZE logFromLogFloat :: LogFloat -> Double #-}
 logFromLogFloat (LogFloat x) = realToFrac x
 
 
diff --git a/Data/Number/Transfinite.hs b/Data/Number/Transfinite.hs
--- a/Data/Number/Transfinite.hs
+++ b/Data/Number/Transfinite.hs
@@ -177,9 +177,9 @@
 -- should avoid importing our @log@ and will probably want converters
 -- to handle the discrepancy.
 
+log  :: (Floating a, Transfinite a) => a -> a
 {-# SPECIALIZE log :: Double -> Double #-}
 {-# SPECIALIZE log :: Float  -> Float  #-}
-log  :: (Floating a, Transfinite a) => a -> a
 log x = case x `cmp` 0 of
         Just GT -> Prelude.log x
         Just EQ -> negativeInfinity
diff --git a/logfloat.cabal b/logfloat.cabal
--- a/logfloat.cabal
+++ b/logfloat.cabal
@@ -1,12 +1,12 @@
 ----------------------------------------------------------------
--- wren ng thornton <wren@community.haskell.org>    ~ 2008.10.12
+-- wren ng thornton <wren@community.haskell.org>    ~ 2008.10.16
 ----------------------------------------------------------------
 
 Name:           logfloat
-Version:        0.9.1.2
+Version:        0.9.1.3
 Cabal-Version:  >= 1.2
 Build-Type:     Simple
-Stability:      provisional
+Stability:      experimental
 Copyright:      Copyright (c) 2007--2008 wren ng thornton
 License:        BSD3
 License-File:   LICENSE