diff --git a/blk/634 b/blk/634
index 4054ca3..a399ba9 100644
--- a/blk/634
+++ b/blk/634
@@ -1,5 +1,8 @@
 : _chk ( c --, check _sel range )
     _sel C@ DUP 0x7f > IF 0x20 _sel C! THEN
     0x20 < IF 0x7f _sel C! THEN ;
+CREATE _ '0' C, ':' C, 'A' C, '[' C, 'a' C, 0xff C,
 : _nxtcls
+    _sel @ _ BEGIN ( c a ) C@+ 2 PICK > UNTIL ( c a )
+    1- C@ SWAP DROP _sel !
 ;