diff --git a/Dangerous.cabal b/Dangerous.cabal
--- a/Dangerous.cabal
+++ b/Dangerous.cabal
@@ -1,5 +1,5 @@
 Name:          Dangerous
-Version:       0.2.1
+Version:       0.2.2
 License:       MIT
 License-file:  LICENSE
 Category:      Error Handling
diff --git a/src/Control/Dangerous.hs b/src/Control/Dangerous.hs
--- a/src/Control/Dangerous.hs
+++ b/src/Control/Dangerous.hs
@@ -142,7 +142,7 @@
 result = fst
 
 execute :: (Either Exit a, [Warning]) -> IO a
-execute (r, ws) = mapM_ print ws >> extract r
+execute (r, ws) = mapM_ (hPrint stderr) ws >> extract r
 
 extract :: Either Exit a -> IO a
 extract (Left (Stop s)) = putStrLn s >> exitSuccess