diff --git a/docs/kbdex/ex1.pp b/docs/kbdex/ex1.pp
index f219ea44af..a8e3f6e874 100644
--- a/docs/kbdex/ex1.pp
+++ b/docs/kbdex/ex1.pp
@@ -12,6 +12,7 @@ begin
   Writeln('Press keys, press "q" to end.');
   Repeat
     K:=GetKeyEvent;
+    K:=TranslateKeyEvent(K);
     Write('Got key event with ');
     Case GetKeyEventFlags(K) of
       kbASCII    : Writeln('ASCII key');