--- gforth/history.fs	2007/07/01 18:32:11	1.60
+++ gforth/history.fs	2007/07/01 20:01:32	1.61
@@ -319,7 +319,7 @@ Variable screenw
     ['] xclear-tib   ctrl K bindkey
     ['] xfirst-pos   ctrl A bindkey
     ['] xend-pos     ctrl E bindkey
-    ['] xretype      bl     bindkey
+    ['] xretype      ctrl L bindkey
     history IF  ['] (xenter)     #lf    bindkey  THEN
     history IF  ['] (xenter)     #cr    bindkey  THEN
     ['] xtab-expand  #tab   bindkey