diff --git a/test/Model/TypesSpec.hs b/test/Model/TypesSpec.hs
index 917079d8d..1934aa03a 100644
--- a/test/Model/TypesSpec.hs
+++ b/test/Model/TypesSpec.hs
@@ -220,7 +220,7 @@ instance Arbitrary Html where
 instance Arbitrary StoredMarkup where
   arbitrary = oneof
     [ htmlToStoredMarkup <$> arbitrary
-    , (plaintextToStoredMarkup :: Text -> StoredMarkup) <$> arbitrary
+    , plaintextToStoredMarkup . getPrintableString <$> arbitrary
     ]
 
 instance Arbitrary OccurrenceSchedule where