diff --git a/rtl/inc/lnfodwrf.pp b/rtl/inc/lnfodwrf.pp
index fccce32548..5c989dde7f 100644
--- a/rtl/inc/lnfodwrf.pp
+++ b/rtl/inc/lnfodwrf.pp
@@ -1328,7 +1328,7 @@ begin
   BackTraceStrFunc := @SysBackTraceStr;
   Success:=GetLineInfo(codeptruint(addr), func, source, line);
   { create string }
-  DwarfBackTraceStr :='  $' + HexStr(ptruint(addr), sizeof(ptruint) * 2);
+  DwarfBackTraceStr :='  $' + HexStr(addr);
   if Success then
   begin
     if func<>'' then