diff --git a/src/Streaming/Internal.hs b/src/Streaming/Internal.hs
index d62325c..6592533 100644
--- a/src/Streaming/Internal.hs
+++ b/src/Streaming/Internal.hs
@@ -1063,7 +1063,7 @@ separate odd_even
 
    Or we can write them to separate files or whatever:
 
->>> S.writeFile "even.txt" . S.show $ S.writeFile "odd.txt" . S.show $ S.separate odd_even
+>>> withFile "even.txt" WriteMode $ \he -> withFile "odd.txt" WriteMode $ \ho -> S.toHandle he . S.show $ S.toHandle ho . S.show $ S.separate odd_even
 >>> :! cat even.txt
 2
 4