diff --git a/libtests/qtest/flate.test b/libtests/qtest/flate.test
index fe850b3e..b7acae60 100644
--- a/libtests/qtest/flate.test
+++ b/libtests/qtest/flate.test
@@ -16,6 +16,7 @@ my $td = new TestDriver('flate');
 cleanup();
 
 open(F, ">farbage") or die;
+binmode F;
 print F "q" x 10000, "\n";
 print F "w" x 10000, "\n";
 print F "e" x 10000, "\n";