diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b6d56b18c0..42721bada1 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -80,7 +80,7 @@ MACRO: <experiment> ( word -- )
     '[ _ ndup _ narray _ prefix ] ;
 
 : experiment. ( seq -- )
-    [ first write ": " write ] [ rest . ] bi ;
+    [ first write ": " write ] [ rest . flush ] bi ;
 
 :: experiment ( word: ( -- error ? ) line# -- )
     word <experiment> :> e