diff --git a/ueforth/common/ansi.fs b/ueforth/common/ansi.fs
index bdca015..98cce61 100644
--- a/ueforth/common/ansi.fs
+++ b/ueforth/common/ansi.fs
@@ -30,5 +30,4 @@ forth definitions ansi
 : at-xy ( x y -- ) esc ." [" 1+ n. ." ;" 1+ n. ." H" ;
 : page   esc ." [2J" esc ." [H" ;
 : set-title ( a n -- ) esc ." ]0;" type bel ;
-s" uEforth" set-title
 forth
diff --git a/ueforth/common/desktop.fs b/ueforth/common/desktop.fs
index 14009e1..0ee2dee 100644
--- a/ueforth/common/desktop.fs
+++ b/ueforth/common/desktop.fs
@@ -17,4 +17,9 @@ forth definitions internals
 : argc ( -- n ) 'argc @ ;
 : argv ( n -- a n ) cells 'argv @ + @ z>s ;
 
-forth
+internals definitions also ansi
+
+: boot-set-title   s" uEforth" set-title ;
+' boot-set-title boot-prompt !
+
+only forth definitions