From 7887a0ba683a4671d423616cbac28047f3975827 Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Mon, 9 Jan 2017 14:48:35 +0100
Subject: [PATCH] Fixed deserializing dictionary details: size mismatch
 exception and valued incorrectly being freed

---
 X2Log.Details.Default.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/X2Log.Details.Default.pas b/X2Log.Details.Default.pas
index 8b084f0..65b8c4d 100644
--- a/X2Log.Details.Default.pas
+++ b/X2Log.Details.Default.pas
@@ -682,10 +682,11 @@ begin
       end;
 
       if Assigned(valueClass) then
-        values.Add(key, valueClass.Create(valueType, AStream));
+        values.Add(key, valueClass.Create(valueType, AStream, payloadSize));
     end;
 
     Result := TX2LogDictionaryDetails.CreateOwned(values);
+    values := nil;
   finally
     FreeAndNil(values);
   end;