--- gforth/ekey.fs	2003/03/09 15:16:47	1.8
+++ gforth/ekey.fs	2004/12/31 13:23:57	1.11
@@ -1,6 +1,6 @@
 \ ekey etc.
 
-\ Copyright (C) 1999,2002 Free Software Foundation, Inc.
+\ Copyright (C) 1999,2002,2003,2004 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -117,7 +117,7 @@ table constant esc-sequences \ and prefi
 create ekey-buffer 8 chars allot
 2variable ekey-buffered
 
-27 constant #esc
+[IFUNDEF] #esc  27 Constant #esc  [THEN]
 
 : esc-prefix ( -- u )
     key? if