diff --git a/startup.4th b/startup.4th
index e535abb..634d627 100644
--- a/startup.4th
+++ b/startup.4th
@@ -2285,10 +2285,13 @@ ARGV ARGC 1+ CELLS+ CONSTANT ENVIRON
    LOCAL-NAMES BEGIN ?DUP WHILE DUP LOCAL>LINK @ SWAP FREE REPEAT
    TO LOCAL-NAMES ▪ POSTPONE UNLOCALS ;
 
-\ Define a threaded word which also displays its name and the data stack when called
 >> UTILITY
+
 : (TRACE)  ( xt -- )  >NAME TYPE SPACE .S ;
+
 >> FORTH
+
+\ Define a threaded word which also displays its name and the data stack when called
 : :TRACE  ( "<spaces?>name" -- )  : LATEST POSTPONE LITERAL POSTPONE (TRACE) ;
 
 \ Return TRUE if the given address is the execution token of a word in