diff --git a/tests/Tests/QuickCheckUtils.hs b/tests/Tests/QuickCheckUtils.hs
index 6333271793cd367fd7fe2ce436192872a5f872c6..851b65881938335ef11ef2b9c94390bef60fbac2 100644
--- a/tests/Tests/QuickCheckUtils.hs
+++ b/tests/Tests/QuickCheckUtils.hs
@@ -106,7 +106,7 @@ smallArbitrary = sized $ \n -> resize (smallish n) arbitrary
   where smallish = round . (sqrt :: Double -> Double) . fromIntegral . abs
 
 instance Arbitrary T.Text where
-    arbitrary = T.pack `fmap` arbitrary
+    arbitrary = T.pack `fmap` string
     shrink = map T.pack . shrink . T.unpack
 
 instance Arbitrary TL.Text where