diff --git a/Test/Numeric/NonNegative/Chunky.hs b/Test/Numeric/NonNegative/Chunky.hs
--- a/Test/Numeric/NonNegative/Chunky.hs
+++ b/Test/Numeric/NonNegative/Chunky.hs
@@ -101,20 +101,6 @@
    let y = Chunky.fromNumber limit
    in  P.min x y == y
 
-showInfinite0 :: Int -> Bool
-showInfinite0 =
-   (\t -> t==t) . take 1000000 . show .
-   const (Chunky.fromChunks $ iterate (2-) (1::NonNegW.Integer))
-
-showInfinite1 :: (NonNeg.C a, Num a, Show a) => a -> Bool
-showInfinite1 =
-   (\t -> t==t) . take 10000 . show .
-   (\n -> Chunky.fromChunks $ iterate (2-) (1+0*n))
-
-showInfinite2 :: (NonNeg.C a, Num a, Show a) => a -> Bool
-showInfinite2 =
-   (\t -> t==t) . take 10000 . show . infinity
-
 addInfiniteL :: (NonNeg.C a, Num a) => a -> a -> Chunky.T a -> Bool
 addInfiniteL limit x y =
    checkInfinity limit (infinity x + y)
@@ -236,13 +222,6 @@
      quickCheck splitSpaceLeak4) :
    ("splitSpaceLeak5",
      quickCheck splitSpaceLeak5) :
-
-   ("showInfinite0",
-     quickCheck (showInfinite0 :: Int -> Bool)) :
-   ("showInfinite1",
-     quickCheck (showInfinite1 :: NonNegW.Int -> Bool)) :
-   ("showInfinite2",
-     quickCheck (showInfinite2 :: NonNegW.Int -> Bool)) :
 
    ("addInfiniteL",
      quickCheck (addInfiniteL :: Card -> Card -> Chunky.T Card -> Bool)) :
diff --git a/Test/Utility.hs b/Test/Utility.hs
--- a/Test/Utility.hs
+++ b/Test/Utility.hs
@@ -1,10 +1,6 @@
 module Test.Utility where
 
-import Test.QuickCheck (Arbitrary(..))
-
 import qualified Numeric.NonNegative.Wrapper as NonNeg
-import Control.Monad (liftM)
-import Data.Char (chr)
 
 
 type TimeDiff = NonNeg.Int
@@ -15,12 +11,3 @@
 makeFracTime :: (TimeDiff, TimeDiff) -> NonNeg.Double
 makeFracTime (n,d) =
    timeToDouble n / (timeToDouble d + 1)
-
-
-instance Arbitrary Char where
-   arbitrary = liftM (chr . (32+) . flip mod 96) arbitrary
-
-instance Arbitrary a => Arbitrary (Maybe a) where
-   arbitrary =
-      arbitrary >>=
-         \b -> if b then fmap Just arbitrary else return Nothing
diff --git a/non-negative.cabal b/non-negative.cabal
--- a/non-negative.cabal
+++ b/non-negative.cabal
@@ -1,5 +1,5 @@
 Name:             non-negative
-Version:          0.1.1.1
+Version:          0.1.1.2
 License:          GPL
 License-File:     LICENSE
 Author:           Henning Thielemann <haskell@henning-thielemann.de>
@@ -21,7 +21,7 @@
   description: Choose the new smaller, split-up base package.
 
 Source-Repository this
-  Tag:         0.1.1.1
+  Tag:         0.1.1.2
   Type:        darcs
   Location:    http://code.haskell.org/~thielema/non-negative/