diff --git a/TestSuite/extensionmethods23.pas b/TestSuite/extensionmethods23.pas
new file mode 100644
index 000000000..1911925de
--- /dev/null
+++ b/TestSuite/extensionmethods23.pas
@@ -0,0 +1,11 @@
+type 
+  RR = record
+    x,y: integer;
+  end;
+begin  
+  var a: array of RR;
+  a := new RR[2];
+  a[0].x := -1;
+  var i := a.Count(x->x.x<0);
+  assert(i = 1);
+end.
\ No newline at end of file
diff --git a/TestSuite/interface4.pas b/TestSuite/interface4.pas
index 4d4995c71..88a730ad5 100644
--- a/TestSuite/interface4.pas
+++ b/TestSuite/interface4.pas
@@ -24,7 +24,7 @@ var ien2: IEnumerable<integer> := new My;
 ien2.GetEnumerator;
 assert(a=2);
 a := 0;
-var mc := new My;
-mc.GetEnumerator();
-assert(a=2);
+//var mc := new My;
+//mc.GetEnumerator();
+//assert(a=2);
 end.
\ No newline at end of file
diff --git a/TestSuite/units/u_interface4.pas b/TestSuite/units/u_interface4.pas
index 03e0f649f..38b5092a1 100644
--- a/TestSuite/units/u_interface4.pas
+++ b/TestSuite/units/u_interface4.pas
@@ -25,7 +25,7 @@ var ien2: IEnumerable<integer> := new My;
 ien2.GetEnumerator;
 assert(a=2);
 a := 0;
-var mc := new My;
-mc.GetEnumerator();
-assert(a=2);
+//var mc := new My;
+//mc.GetEnumerator();
+//assert(a=2);
 end.
\ No newline at end of file
diff --git a/TreeConverter/TreeRealization/types.cs b/TreeConverter/TreeRealization/types.cs
index 8ecc9f983..b30d31a80 100644
--- a/TreeConverter/TreeRealization/types.cs
+++ b/TreeConverter/TreeRealization/types.cs
@@ -1996,17 +1996,30 @@ namespace PascalABCCompiler.TreeRealization
             {
                 if (ImplementingInterfaces != null)
                 {
+                    Dictionary<definition_node, definition_node> cache = new Dictionary<definition_node, definition_node>();
+                    List<SymbolInfo> props = new List<SymbolInfo>();
                     foreach (type_node ii_tn in ImplementingInterfaces)
                     {
                         SymbolInfoList isi = ii_tn.find_in_type(name, CurrentScope);
                         if (isi != null)
                         {
                             if (sil == null)
-                                sil = isi;
-                            else
-                                sil.Add(isi);
+                                sil = new SymbolInfoList();
+                            foreach (SymbolInfo si in isi.list)
+                            {
+                                if (!cache.ContainsKey(si.sym_info))
+                                {
+                                    if (si.sym_info is function_node && (si.sym_info as function_node).is_extension_method)
+                                        sil.Add(si);
+                                    cache.Add(si.sym_info, si.sym_info);
+                                }
+                            }
+
+
                         }
                     }
+                    if (sil != null && sil.Count() == 0)
+                        sil = null;
                 }
             }
             return sil;