--- gforth/ekey.fs	2005/10/02 11:30:32	1.12
+++ gforth/ekey.fs	2006/06/05 23:55:18	1.15
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002,2003,2004,2005 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -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=