diff --git a/extra/euler/b-rep/io/obj/obj.factor b/extra/euler/b-rep/io/obj/obj.factor
index 5914d3b621..2a68fb3401 100644
--- a/extra/euler/b-rep/io/obj/obj.factor
+++ b/extra/euler/b-rep/io/obj/obj.factor
@@ -7,11 +7,11 @@ IN: euler.b-rep.io.obj
 <PRIVATE
 : write-obj-vertex ( vertex -- )
     "v " write
-    position>> 3 head-slice [ " " write ] [ number>string write ] interleave nl ;
+    position>> 3 head-slice [ bl ] [ number>string write ] interleave nl ;
 
 : write-obj-face ( face vx-indices -- )
     "f" write
-    [ edge>> ] dip '[ " " write vertex>> _ at 1 + number>string write ] each-face-edge nl ;
+    [ edge>> ] dip '[ bl vertex>> _ at 1 + number>string write ] each-face-edge nl ;
 PRIVATE>
 
 :: write-obj ( b-rep -- )
diff --git a/extra/html/parser/printer/printer.factor b/extra/html/parser/printer/printer.factor
index 858830e729..552d807e3f 100644
--- a/extra/html/parser/printer/printer.factor
+++ b/extra/html/parser/printer/printer.factor
@@ -56,7 +56,7 @@ M: text-printer print-closing-tag
     [
         { "ul" "ol" "li" "tr" } member? [ nl ] when
     ]
-    [ "td" = [ " " write ] when ] tri ;
+    [ "td" = [ bl ] when ] tri ;
 
 M: text-printer print-comment-tag drop ;
 
diff --git a/extra/rosetta-code/metronome/metronome.factor b/extra/rosetta-code/metronome/metronome.factor
index 4541bb0149..fe1bcc48a9 100755
--- a/extra/rosetta-code/metronome/metronome.factor
+++ b/extra/rosetta-code/metronome/metronome.factor
@@ -57,7 +57,7 @@ M: metronome-gadget pref-dim* drop { 200 200 } ;
 
 : print-defaults ( -- )
   metronome-defaults swap prefix
-  [ " " write ] [ number>string write ] interleave nl ;
+  [ bl ] [ number>string write ] interleave nl ;
 
 : metronome-usage ( -- )
     "Usage: metronome [BPM FREQUENCIES...]" print