diff --git a/TestSuite/copyarr1.pas b/TestSuite/copyarr1.pas
index 89670b11b..fe90faf10 100644
--- a/TestSuite/copyarr1.pas
+++ b/TestSuite/copyarr1.pas
@@ -1,3 +1,4 @@
+//winonly
 var arr : array of integer := (1,2,3);
     arr2 : array of integer;
     arr3 : array[,] of integer := ((1,2),(3,4));
@@ -17,10 +18,7 @@ arr4 := Copy(arr3);
 assert(arr4[1,0]=3);
 arr4[1,0] := 7;
 assert(arr3[1,0]=3);
-if (System.Environment.OSVersion.Platform <> System.PlatformID.Unix) and (System.Environment.OSVersion.Platform <> System.PlatformID.MacOSX) then
-begin
-  arr6 := Copy(arr5);
-  assert(arr6[0]=@i);
-end;
+arr6 := Copy(arr5);
+assert(arr6[0]=@i);
 
 end.
\ No newline at end of file
diff --git a/TestSuite/units/u_copyarr1.pas b/TestSuite/units/u_copyarr1.pas
index a6457f185..30998d490 100644
--- a/TestSuite/units/u_copyarr1.pas
+++ b/TestSuite/units/u_copyarr1.pas
@@ -1,3 +1,4 @@
+//winonly
 unit u_copyarr1;
 var arr : array of integer := (1,2,3);
     arr2 : array of integer;
@@ -18,9 +19,6 @@ arr4 := Copy(arr3);
 assert(arr4[1,0]=3);
 arr4[1,0] := 7;
 assert(arr3[1,0]=3);
-if (System.Environment.OSVersion.Platform <> System.PlatformID.Unix) and (System.Environment.OSVersion.Platform <> System.PlatformID.MacOSX) then
-begin
 arr6 := Copy(arr5);
 assert(arr6[0]=@i);
-end;
 end.
\ No newline at end of file
diff --git a/TestSuite/usesunits/use_copyarr1.pas b/TestSuite/usesunits/use_copyarr1.pas
index afd393b7a..b9b50b7bd 100644
--- a/TestSuite/usesunits/use_copyarr1.pas
+++ b/TestSuite/usesunits/use_copyarr1.pas
@@ -1 +1,2 @@
+//winonly
 uses u_copyarr1; begin end.
\ No newline at end of file