diff --git a/8086/msdos/tests/log2file.fb b/8086/msdos/tests/log2file.fb
index 052e86a..50cdd7d 100644
--- a/8086/msdos/tests/log2file.fb
+++ b/8086/msdos/tests/log2file.fb
@@ -1 +1 @@
-\ logging to a text file                             phz 03jan22                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ load screen                                        phz 04jan22                                                                  1 2 +thru                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     \ log-type log-emit log-cr alsologtofile             phz 04jan22  context @ dos also context !                                  \ vocabulary log dos also log definitions                         file logfile                                                    variable logfcb                                                                                                                 : log-type  2dup (type  ds@ -rot logfcb @ lfputs ;                                                                              : log-emit  dup (emit  logfcb @ fputc ;                                                                                         : log-cr    (cr  #cr logfcb @ fputc  #lf logfcb @ fputc ;                                                                     Output: alsologtofile                                            log-emit log-cr log-type (del (page (at (at? ;                                                                                                                                                 \ logopen logclose                                   phz 11jan22                                                                  : logopen ( -- )                                                   isfile push                                                     logfile make  isfile@ dup freset logfcb !                       alsologtofile ;                                                                                                              : logclose ( -- )  display  logfcb @ fclose ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
\ No newline at end of file
+\ logging to a text file                             phz 03jan22                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ load screen                                        phz 16jan22                                                                  : (blk  blk @ 0= IF ascii ) parse 2drop THEN ;                                                                                  (blk  1 2 +thru  ( )                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          \ log-type log-emit log-cr alsologtofile             phz 04jan22  context @ dos also context !                                  \ vocabulary log dos also log definitions                         file logfile                                                    variable logfcb                                                                                                                 : log-type  2dup (type  ds@ -rot logfcb @ lfputs ;                                                                              : log-emit  dup (emit  logfcb @ fputc ;                                                                                         : log-cr    (cr  #cr logfcb @ fputc  #lf logfcb @ fputc ;                                                                     Output: alsologtofile                                            log-emit log-cr log-type (del (page (at (at? ;                                                                                                                                                 \ logopen logclose                                   phz 11jan22                                                                  : logopen ( -- )                                                   isfile push                                                     logfile make  isfile@ dup freset logfcb !                       alsologtofile ;                                                                                                              : logclose ( -- )  display  logfcb @ fclose ;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 
\ No newline at end of file
diff --git a/8086/msdos/tests/log2file.fth b/8086/msdos/tests/log2file.fth
index 968255d..8f246c7 100644
--- a/8086/msdos/tests/log2file.fth
+++ b/8086/msdos/tests/log2file.fth
@@ -20,11 +20,11 @@
 
 \ *** Block No. 1, Hexblock 1
 
-\ load screen                                        phz 04jan22
-
-  1 2 +thru
+\ load screen                                        phz 16jan22
 
+  : (blk  blk @ 0= IF ascii ) parse 2drop THEN ;
 
+  (blk  1 2 +thru  ( )