diff --git a/TestSuite/LamIntSelf.pas b/TestSuite/LamIntSelf.pas
index efc3d7236..b37f6f987 100644
--- a/TestSuite/LamIntSelf.pas
+++ b/TestSuite/LamIntSelf.pas
@@ -1,4 +1,5 @@
-// #2173
+//winonly
+// #2173
 type
   I1 = interface
     function f1(b: byte): ()->byte;