diff --git a/startup.4th b/startup.4th
index 8890edb..e535abb 100644
--- a/startup.4th
+++ b/startup.4th
@@ -1302,7 +1302,7 @@ DEFER REFILL
 
 \ Debugging aid; shows a label and the contents of the stacks at runtime
 : MARK  ( "<spaces?>name" )  IMMEDIATE
-   PARSE-NAME POSTPONE SLITERAL POSTPONE (MARK) ;
+   PARSE-NAME STATE @ IF POSTPONE SLITERAL POSTPONE (MARK) ELSE (MARK) THEN ;
 
 >>FORTH