--- gforth/ekey.fs	2005/12/31 15:46:08	1.13
+++ gforth/ekey.fs	2006/06/05 23:55:18	1.15
@@ -219,10 +219,10 @@ set-current
 
 : ekey>char ( u -- u false | c true ) \ facility-ext e-key-to-char
     \G Convert keyboard event @var{u} into character @code{c} if possible.
-    dup 256 u< ;
+    dup k-left u< ; \ k-left must be first!
 
 ' key? alias ekey? ( -- flag ) \ facility-ext e-key-question
-\G True if a keyboard even is available.
+\G True if a keyboard event is available.
 
 \  : esc? ( -- flag ) recursive
 \      key? 0=