diff --git a/components/codetools/fileprocs.pas b/components/codetools/fileprocs.pas
index d0f8184014..c471fb8dfd 100644
--- a/components/codetools/fileprocs.pas
+++ b/components/codetools/fileprocs.pas
@@ -1098,7 +1098,7 @@ end;
 
 function DbgS(const p: pointer): string;
 begin
-  Result:=DbgS(p);
+  Result:=HexStr(PtrInt(p),sizeof(PtrInt));
 end;
 
 function DbgS(const e: extended): string;