diff --git a/basis/prettyprint/prettyprint.factor b/basis/prettyprint/prettyprint.factor
index b5b8ba2e67..d02144a600 100644
--- a/basis/prettyprint/prettyprint.factor
+++ b/basis/prettyprint/prettyprint.factor
@@ -54,9 +54,9 @@ IN: prettyprint
 
 <PRIVATE
 
-SYMBOL: ->
+SYMBOL: =>
 
-\ ->
+\ =>
 { { foreground COLOR: white } { background COLOR: black } }
 "word-style" set-word-prop
 
@@ -76,7 +76,7 @@ SYMBOL: ->
     ] [ ] make ;
 
 : remove-breakpoints ( quot pos -- quot' )
-    1 + short cut [ (remove-breakpoints) ] bi@ [ -> ] glue ;
+    1 + short cut [ (remove-breakpoints) ] bi@ [ => ] glue ;
 
 : optimized-frame? ( triple -- ? ) second word? ;