diff --git a/tests/tbs/tb0467.pp b/tests/tbs/tb0467.pp
index c2b14aa3b8..125ced4b0d 100644
--- a/tests/tbs/tb0467.pp
+++ b/tests/tbs/tb0467.pp
@@ -1,3 +1,7 @@
+{ %version=1.1 }
+{$mode objfpc}
+uses
+  typinfo;
 type
   tmyobject = class
       fs : single;
@@ -5,5 +9,11 @@ type
       property s : single read fs write fs default 3.1415;
   end;
 
+var
+  myobject : tmyobject;
+
 begin
-end.
\ No newline at end of file
+  myobject:=tmyobject.create;
+  writeln(GetFloatProp(myobject,'S'));
+  myobject.free;
+end.