diff --git a/semantic-core/test/Generators.hs b/semantic-core/test/Generators.hs
index e368b47f8..127f89ff8 100644
--- a/semantic-core/test/Generators.hs
+++ b/semantic-core/test/Generators.hs
@@ -69,6 +69,7 @@ expr = Gen.recursive Gen.choice atoms
   , lambda expr
   , Gen.subterm2 expr expr (Core.$$)
   , Gen.subterm3 expr expr expr Core.if'
+  , Gen.subterm expr Core.load
   , record expr
   , Gen.subtermM expr (\ x -> (x Core....) . namedValue <$> name)
   , Gen.subterm2 expr expr (Core..=)