diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index 7f6716626c..12f85153ae 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -1267,6 +1267,7 @@ implementation
                           begin
                             UTF8Char := UTF8Char or ((CurrentChar and $3F) shl (6 * UTF8Len));
 
+                            dec(X);
                             Inc(UTF8Len);
                             if UTF8Len >= 4 then
                               { Sequence too long }