diff --git a/rtl/objpas/strutils.pp b/rtl/objpas/strutils.pp
index adcd644e9e..5a224a41cc 100644
--- a/rtl/objpas/strutils.pp
+++ b/rtl/objpas/strutils.pp
@@ -1156,7 +1156,7 @@ begin
     HexStr:='$'+ S
   else
     HexStr:=S;
-  Result:=StrTointDef(HexStr,0);
+  Result:=StrToInt(HexStr);
 end;
 
 function Dec2Numb(N: Longint; Len, Base: Byte): string;