diff --git a/extra/brainfuck/brainfuck-tests.factor b/extra/brainfuck/brainfuck-tests.factor
index 452e0a4bdc..4d35089832 100644
--- a/extra/brainfuck/brainfuck-tests.factor
+++ b/extra/brainfuck/brainfuck-tests.factor
@@ -4,6 +4,9 @@
 USING: brainfuck io.streams.string multiline tools.test ;
 
 
+[ "+" run-brainfuck ] must-infer
+[ "+" get-brainfuck ] must-infer
+
 ! Hello World!
 
 [ "Hello World!\n" ] [ <" ++++++++++[>+++++++>++++++++++>+++>+<<<<-]
diff --git a/extra/brainfuck/brainfuck.factor b/extra/brainfuck/brainfuck.factor
index 51c8a100df..4b4efd1ec3 100644
--- a/extra/brainfuck/brainfuck.factor
+++ b/extra/brainfuck/brainfuck.factor
@@ -67,7 +67,7 @@ code  = (loop|ops|unknown)*  => [[ compose-all ]]
 PRIVATE>
 
 MACRO: run-brainfuck ( code -- )
-    [ <brainfuck> ] swap parse-brainfuck [ drop ] 3append ;
+    [ <brainfuck> ] swap parse-brainfuck [ drop flush ] 3append ;
 
 : get-brainfuck ( code -- result ) 
     [ run-brainfuck ] with-string-writer ; inline