--- gforth/ekey.fs	2006/04/02 09:18:56	1.14
+++ gforth/ekey.fs	2006/12/31 13:39:12	1.16
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999,2002,2003,2004,2005 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002,2003,2004,2005,2006 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -219,7 +219,7 @@ 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 event is available.