diff --git a/tests/ts010000.pp b/tests/ts010000.pp
index d0b400deda..6e37ea2a3c 100644
--- a/tests/ts010000.pp
+++ b/tests/ts010000.pp
@@ -29,6 +29,7 @@ var
    i : longint;
 
 begin
+   object1:=tobject1.create;
    i:=object1.l;
    i:=object1.l2;
    object1.l:=123;
diff --git a/tests/ts010004.pp b/tests/ts010004.pp
index d664178315..73b43a5a26 100644
--- a/tests/ts010004.pp
+++ b/tests/ts010004.pp
@@ -18,5 +18,6 @@ type
    end;
 
 begin
+   c:=tclass1.create;
    c.i:=12;
 end.