--- gforth/history.fs	2000/07/31 21:00:26	1.23
+++ gforth/history.fs	2000/07/31 21:18:10	1.24
@@ -50,6 +50,7 @@ interpret/compile: ctrl  ( "<char>" -- c
 ' back  ctrl B cells ctrlkeys + !
 ' ?del  ctrl H cells ctrlkeys + !
 ' eof   ctrl D cells ctrlkeys + !
+' <del> ctrl X cells ctrlkeys + !
 
 ' (ins) IS insert-char