diff --git a/blk/570 b/blk/570
index cb25da7..446e894 100644
--- a/blk/570
+++ b/blk/570
@@ -7,5 +7,8 @@
             IF _tbl^ _2nd@ IF _alock^ THEN THEN
         SWAP 0x81 = _2nd!
         _gti + C@
-    DUP 0 0x80 >< UNTIL ( loop if not in range ) ;
+    DUP 0 0x80 >< UNTIL ( loop if not in range )
+    ( lowercase? )
+    _2nd@ IF DUP 'A' 'Z' =><= IF 0x20 OR THEN THEN
+;
 : KBD$ 0 [ KBD_MEM LITN ] C! ;