diff --git a/entries/ghatem-fpc/src/onebrc.pas b/entries/ghatem-fpc/src/onebrc.pas
index 3b439a5..1aa61db 100644
--- a/entries/ghatem-fpc/src/onebrc.pas
+++ b/entries/ghatem-fpc/src/onebrc.pas
@@ -135,7 +135,7 @@ procedure TOneBRC.ExtractLineData(const aStart: Int64; const aEnd: Int64; out aL
   aTemp :=     (Ord(FData[aEnd])   - c0ascii)
          + 10 *(Ord(FData[aEnd-2]) - c0ascii);
   vDigit := Ord(FData[aEnd-3]);
-  if vDigit >= c0ascii then begin
+  if (vDigit >= c0ascii) and (vDigit <= c9ascii) then begin
     aTemp := aTemp + 100*(Ord(FData[aEnd-3]) - c0ascii);
     vDigit := Ord(FData[aEnd-4]);
     if vDigit = cNegAscii then