From 905503775421c71d3ae71c806f70b89f9b55ecff Mon Sep 17 00:00:00 2001
From: Bergmann89 <info@bergmann89.de>
Date: Sat, 16 Apr 2016 20:05:00 +0200
Subject: [PATCH] * fixed bug in observable map: used wrong comperator

---
 uutlGenerics.pas           | 2 +-
 uutlObservableGenerics.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/uutlGenerics.pas b/uutlGenerics.pas
index a3adf0f..86f05db 100644
--- a/uutlGenerics.pas
+++ b/uutlGenerics.pas
@@ -1466,7 +1466,7 @@ end;
 constructor TutlMapBase.Create(const aHashSet: THashSet);
 begin
   inherited Create;
-  fHashSetRef             := aHashSet;
+  fHashSetRef          := aHashSet;
   fKeyWrapper          := TKeyWrapper.Create(fHashSetRef);
   fKeyValuePairWrapper := TKeyValuePairWrapper.Create(fHashSetRef);
 end;
diff --git a/uutlObservableGenerics.pas b/uutlObservableGenerics.pas
index 6fd18a2..ca03813 100644
--- a/uutlObservableGenerics.pas
+++ b/uutlObservableGenerics.pas
@@ -304,7 +304,7 @@ constructor TutlObservableCustomMap.Create(const aComparer: IComparer; const aOw
 begin
   fOnAddItem    := TEventList.Create;
   fOnRemoveItem := TEventList.Create;
-  fHashSetImpl  := TObservableHashSet.Create(self, aComparer, aOwnsObjects);
+  fHashSetImpl  := TObservableHashSet.Create(self, TKeyValuePairComparer.Create(aComparer), aOwnsObjects);
   fHashSetImpl.OnAddItem    := fOnAddItem;
   fHashSetImpl.OnRemoveItem := fOnRemoveItem;
   inherited Create(fHashSetImpl);