diff --git a/Crypto.cabal b/Crypto.cabal
--- a/Crypto.cabal
+++ b/Crypto.cabal
@@ -1,9 +1,9 @@
 Name:            Crypto
-Version:         4.2.1
+Version:         4.2.2
 License:         OtherLicense
 License-File:    ReadMe.tex
 Author:          Dominic Steinitz
-Maintainer:      Creighton Hogg <wchogg@gmail.com>
+Maintainer:      Caylee Hogg <caylee.hogg@gmail.com>
 Copyright:       Dominic Steinitz 2003 - 2007
 
 Stability:       Alpha
diff --git a/QuickTest.hs b/QuickTest.hs
--- a/QuickTest.hs
+++ b/QuickTest.hs
@@ -14,18 +14,6 @@
 import Data.Char
 import Test.QuickCheck
 
-instance Arbitrary Word8 where
-   arbitrary = 
-      do n <- choose ((fromIntegral (minBound::Word8))::Int, 
-                      (fromIntegral (maxBound::Word8))::Int)
-         return (fromIntegral n)
-
-instance Arbitrary Word64 where
-   arbitrary = 
-      do n <- choose ((fromIntegral (minBound::Word64))::Integer, 
-                      (fromIntegral (maxBound::Word64))::Integer)
-         return (fromIntegral n)
-
 instance Arbitrary Word128 where
    arbitrary = 
       do n <- choose ((fromIntegral (minBound::Word128))::Integer, 
diff --git a/WordListTest.hs b/WordListTest.hs
--- a/WordListTest.hs
+++ b/WordListTest.hs
@@ -27,30 +27,6 @@
     ("Word256",
      quickCheck (\(w :: [Word256]) -> (listFromOctets . listToOctets) w == w))]
 
-instance Arbitrary Word8 where
-    arbitrary = do
-        let mx,mn :: Integer
-            mx = fromIntegral (maxBound :: Word8)
-            mn = fromIntegral (minBound :: Word8)
-        c <- choose (mx, mn)
-        return $ fromIntegral c
-
-instance Arbitrary Word32 where
-    arbitrary = do
-        let mx,mn :: Integer
-            mx = fromIntegral (maxBound :: Word32)
-            mn = fromIntegral (minBound :: Word32)
-        c <- choose (mx, mn)
-        return $ fromIntegral c
-
-instance Arbitrary Word64 where
-    arbitrary = do
-        let mx,mn :: Integer
-            mx = fromIntegral (maxBound :: Word64)
-            mn = fromIntegral (minBound :: Word64)
-        c <- choose (mx, mn)
-        return $ fromIntegral c
-
 instance Arbitrary Word128 where
         arbitrary = do
                 x <- vector (128 `div` 8) :: Gen [Word8]