diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,8 @@
+# Version 1.4.1.0
+
+- Added `writeTo` export to the main module (forgotten when it was added to
+  `.Core`.)
+
 # Version 1.4.0.0
 
 - Added support for Text with Attoparsec, courtesy Kevin Brubeck Unhammer. Adds
diff --git a/io-streams.cabal b/io-streams.cabal
--- a/io-streams.cabal
+++ b/io-streams.cabal
@@ -1,5 +1,5 @@
 Name:                io-streams
-Version:             1.4.0.0
+Version:             1.4.1.0
 License:             BSD3
 License-file:        LICENSE
 Category:            Data, Network, IO-Streams
@@ -195,7 +195,7 @@
                      System.IO.Streams.Internal.Search
 
 
-  ghc-options:       -Wall -fhpc -fwarn-tabs -funbox-strict-fields -threaded
+  ghc-options:       -Wall -fwarn-tabs -funbox-strict-fields -threaded
                      -fno-warn-unused-do-bind
   ghc-prof-options:  -auto-all
 
diff --git a/src/System/IO/Streams.hs b/src/System/IO/Streams.hs
--- a/src/System/IO/Streams.hs
+++ b/src/System/IO/Streams.hs
@@ -34,6 +34,7 @@
  , unRead
  , peek
  , write
+ , writeTo
  , atEOF
 
    -- * Connecting streams together
diff --git a/src/System/IO/Streams/Core.hs b/src/System/IO/Streams/Core.hs
--- a/src/System/IO/Streams/Core.hs
+++ b/src/System/IO/Streams/Core.hs
@@ -25,6 +25,8 @@
  , connectTo
  , supply
  , supplyTo
+ , appendInputStream
+ , concatInputStreams
 
    -- * Thread safety \/ concurrency
  , lockingInputStream
diff --git a/test/System/IO/Streams/Tests/Process.hs b/test/System/IO/Streams/Tests/Process.hs
--- a/test/System/IO/Streams/Tests/Process.hs
+++ b/test/System/IO/Streams/Tests/Process.hs
@@ -40,7 +40,7 @@
 ------------------------------------------------------------------------------
 testInteractiveProcess :: Test
 testInteractiveProcess = testCase "process/interactiveProcess" $ do
-    (out, err) <- Streams.runInteractiveProcess "/usr/bin/tr" ["a-z", "A-Z"]
+    (out, err) <- Streams.runInteractiveProcess "tr" ["a-z", "A-Z"]
                                                 Nothing Nothing
                       >>= run [inputdata]
     assertEqual "interactiveProcess" expected out