diff --git a/test/Model/Types/WorkflowSpec.hs b/test/Model/Types/WorkflowSpec.hs
index 71ce753c3..542690a20 100644
--- a/test/Model/Types/WorkflowSpec.hs
+++ b/test/Model/Types/WorkflowSpec.hs
@@ -20,9 +20,11 @@ import Control.Lens.Extras (is)
 
 import Utils.I18n
 
+import qualified Data.CaseInsensitive as CI
+
 
 instance Arbitrary WorkflowPayloadLabel where
-  arbitrary = genericArbitrary
+  arbitrary = WorkflowPayloadLabel . CI.mk . pack <$> (fmap getPrintableString arbitrary `suchThat` (not . null))
   shrink = genericShrink
 instance CoArbitrary WorkflowPayloadLabel
 instance Function WorkflowPayloadLabel