diff --git a/TestSuite/arithm3.pas b/TestSuite/arithm3.pas
index 53f91b263..94e2c57c5 100644
--- a/TestSuite/arithm3.pas
+++ b/TestSuite/arithm3.pas
@@ -1,3 +1,4 @@
+//winonly
 procedure Test;
 var 
   b : byte;
diff --git a/TestSuite/units/u_arithm3.pas b/TestSuite/units/u_arithm3.pas
index b7609b101..9dbeef376 100644
--- a/TestSuite/units/u_arithm3.pas
+++ b/TestSuite/units/u_arithm3.pas
@@ -1,3 +1,4 @@
+//winonly
 unit u_arithm3;
 procedure Test;
 var 
diff --git a/TestSuite/usesunits/use_arithm3.pas b/TestSuite/usesunits/use_arithm3.pas
index 13dee6f0d..6f79ef222 100644
--- a/TestSuite/usesunits/use_arithm3.pas
+++ b/TestSuite/usesunits/use_arithm3.pas
@@ -1 +1,2 @@
+//winonly
 uses u_arithm3; begin end.
\ No newline at end of file