diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index b4865ff679ea7e7cd5a0ed3a7905baa710f35c11..c086af433bd99f32dfc974e3a5a69931a1b14660 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -89,6 +89,10 @@ instance Random Word where
     randomR = integralRandomR
     random  = randomR (minBound,maxBound)
 
+instance Random Word8 where
+    randomR = integralRandomR
+    random  = randomR (minBound,maxBound)
+
 instance Random Word64 where
     randomR = integralRandomR
     random  = randomR (minBound,maxBound)