diff --git a/HISTORY b/HISTORY
new file mode 100644
--- /dev/null
+++ b/HISTORY
@@ -0,0 +1,5 @@
+0.1.0.1 (2009-01-11)
+   make Data.IVar.Simple.tryWrite exception safe (noticed by Chris Kuklewicz)
+
+0.1.0.0 (2009-01-11)
+   initial version
diff --git a/ivar-simple.cabal b/ivar-simple.cabal
--- a/ivar-simple.cabal
+++ b/ivar-simple.cabal
@@ -1,5 +1,5 @@
 Name:          ivar-simple
-Version:       0.1.0.0
+Version:       0.1.0.1
 Category:      Concurrency
 Stability:     experimental
 Copyright:     (c) 2008, 2009 Bertram Felgenhauer
@@ -16,6 +16,7 @@
 Build-Type:    Simple
 Extra-Source-Files:
     README
+    HISTORY
 
 Library
     HS-Source-Dirs:     src
diff --git a/src/Data/IVar/Simple.hs b/src/Data/IVar/Simple.hs
--- a/src/Data/IVar/Simple.hs
+++ b/src/Data/IVar/Simple.hs
@@ -75,7 +75,7 @@
 
 -- | Writes a value to an 'IVar'. Returns 'True' if successful.
 tryWrite :: IVar a -> a -> IO Bool
-tryWrite (IVar lock trans _) value = do
+tryWrite (IVar lock trans _) value = block $ do
     a <- tryTakeMVar lock
     case a of
         Just _  -> putMVar trans value >> return True