From 826c5915484abeebd281e1089fb654d90dd39cbc Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Sun, 4 Jan 2015 22:31:02 +0100
Subject: [PATCH] fix, the address taken was a stack one, not the object heap's
 one

---
 src/ce_common.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index c94f62df..f869ebcb 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -556,7 +556,7 @@ end;
 function uniqueObjStr(const aObject: Tobject): string;
 begin
   {$HINTS OFF}{$WARNINGS OFF}
-  exit( format('%.8X',[NativeUint(@aObject)]));
+  exit( format('%.8X',[NativeUint(aObject)]));
   {$HINTS ON}{$WARNINGS ON}
 end;