diff --git a/startup.4th b/startup.4th
index a537ff5..ef1e31a 100644
--- a/startup.4th
+++ b/startup.4th
@@ -2169,7 +2169,7 @@ STDIN TTY? CONSTANT INTERACTIVE?
       REFILL 0= IF BYE THEN
       INTERPRET
       [ INTERACTIVE? ] [IF]
-         STATE @ 0= IF "OK\n" TYPE THEN
+         STATE @ 0= IF DEPTH IF .S THEN "OK\n" TYPE THEN
       [THEN]
    AGAIN ;