diff --git a/src/Sound/Tomato/Speakers.hs b/src/Sound/Tomato/Speakers.hs
--- a/src/Sound/Tomato/Speakers.hs
+++ b/src/Sound/Tomato/Speakers.hs
@@ -24,6 +24,8 @@
 import Control.Concurrent.STM
 import Data.Int (Int16)
 
+import System.Info
+
 import qualified Data.Vector.Storable as V
 
 -- Code heavily adapated from from YampaSynth
@@ -187,11 +189,13 @@
     buffer pSource $= Nothing
     deleteObjectNames [pSource]
     deleteObjectNames pBuffers
-    currentContext $= Nothing
-    printErrors
-    destroyContext context
-    b <- closeDevice device
-    when (not b) $ fail "closing OpenAL device"
+    when (False) $ do
+        -- Not executing the code below fixes a crash on linux.
+        -- It's unproblematic on OS X, too, so why bother.
+        currentContext $= Nothing
+        destroyContext context
+        b <- closeDevice device
+        when (not b) $ fail "closing OpenAL device"
     printErrors
 
 -- | Print all OpenAL errors if applicable
diff --git a/tomato-rubato-openal.cabal b/tomato-rubato-openal.cabal
--- a/tomato-rubato-openal.cabal
+++ b/tomato-rubato-openal.cabal
@@ -1,5 +1,5 @@
 Name:               tomato-rubato-openal
-Version:            0.1.0.0
+Version:            0.1.0.1
 Synopsis:           Easy to use library for audio programming.
 Description:
   WARNING: This project is still in pre-alpha stage. For adventurers only!