diff --git a/CHANGES b/CHANGES
--- a/CHANGES
+++ b/CHANGES
@@ -72,3 +72,6 @@
 
 0.2.2.8:
 		fixed definition of mutual information to be non-negative
+
+0.2.2.9:
+		divide mutual information/entropy by sample size
diff --git a/hstatistics.cabal b/hstatistics.cabal
--- a/hstatistics.cabal
+++ b/hstatistics.cabal
@@ -1,5 +1,5 @@
 Name:               hstatistics
-Version:            0.2.2.8
+Version:            0.2.2.9
 License:            BSD3
 License-file:       LICENSE
 Copyright:          (c) A.V.H. McPhail 2010, 2011
diff --git a/lib/Numeric/Statistics/Information.hs b/lib/Numeric/Statistics/Information.hs
--- a/lib/Numeric/Statistics/Information.hs
+++ b/lib/Numeric/Statistics/Information.hs
@@ -42,7 +42,7 @@
         -> Vector Double           -- ^ the sequence
         -> Double                  -- ^ the entropy
 entropy p x = let ps = probability p x
-              in negate $ dot ps (logE ps)
+              in negate $ (dot ps (logE ps)) / (fromIntegral $ dim x)
 
 -- | the mutual information \sum_x \sum_y p(x,y) \ln{\frac{p(x,y)}{p(x)p(y)}}
 mutual_information :: (PDF a Double, PDF b (Double,Double)) 
@@ -54,6 +54,6 @@
 mutual_information p px py (x,y) = let ps = probability p $ zipVector x y
                                        xs = probability px x
                                        ys = probability py y
-                                   in dot ps (logE ps - logE (xs*ys)) 
+                                   in (dot ps (logE ps - logE (xs*ys))) / (fromIntegral $ dim x) 
 
 -----------------------------------------------------------------------------