Логика в том, что идентификаторы КП считаются строками и без кавычек.
## Код:
```
PROCEDURE (VAR s: Scanner) Scan*, NEW;
            CASE ch OF
            | "A" .. "Z", "a" .. "z", 0C0X .. 0D6X, 0D8X .. 0F6X, 0F8X .. 0FFX: Name(s)
            | '"': DoubleQuotedString(s)
            | "'": SingleQuotedString(s)
```
Насколько это правильно --- судить не берусь.

Решение --- либо берите строки в кавычки, как положено, либо сделайте себе специальную модификацию сканера. Патчить (глобально), мне кажется, не стоит.