* Fix bug #27006

git-svn-id: trunk@30704 -

rtl/objpas/sysutils/sysuintf.inc

@@ -157,7 +157,7 @@ begin
   SetLength(Result, 38);
   StrLFmt(PChar(Result), 38,'{%.8x-%.4x-%.4x-%.2x%.2x-%.2x%.2x%.2x%.2x%.2x%.2x}',
     [
-     GUID.D1, GUID.D2, GUID.D3,
+     Longint(GUID.D1), GUID.D2, GUID.D3,
      GUID.D4[0], GUID.D4[1], GUID.D4[2], GUID.D4[3],
      GUID.D4[4], GUID.D4[5], GUID.D4[6], GUID.D4[7]
     ]);