diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index c2ed6e7c043f101f9958d9cc3c355b0a07b89611..8df625d8ccd961e9111a6e7dec6ab50e9aa82254 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -206,7 +206,7 @@ instance Random Small where
     random  = randomR (minBound,maxBound)
 
 instance Arbitrary Small where
-    arbitrary     = arbitrarySizedIntegral
+    arbitrary     = choose (minBound, maxBound)
     shrink        = shrinkIntegral
 
 integralRandomR :: (Integral a, RandomGen g) => (a,a) -> g -> (a,g)