diff --git a/src/Sound/SC3/Example/Effect.hs b/src/Sound/SC3/Example/Effect.hs
--- a/src/Sound/SC3/Example/Effect.hs
+++ b/src/Sound/SC3/Example/Effect.hs
@@ -1,3 +1,8 @@
+{- |
+Remember to call @withSC3 reset@ before trying any example.
+An example can be tested with 'audition'.
+The sound can be stopped with @withSC3 reset@, again.
+-}
 module Sound.SC3.Example.Effect where
 
 import Sound.SC3.UGen.UGen
@@ -19,7 +24,6 @@
 import Sound.OpenSoundControl.Transport.Monad (send, )
 import qualified Sound.OpenSoundControl.Time as Time
 import qualified Sound.OpenSoundControl.Transport.Monad as Trans
-import qualified Sound.OpenSoundControl.Transport.Monad.IO as MIO
 
 import System.Random(randomRs, mkStdGen, )
 import Control.Concurrent(threadDelay, )
@@ -103,16 +107,17 @@
 bassFilterRun =
   withSC3 $
    do play bassFilter
-      mapM (\p -> set "cutoff" p >> lift (threadDelay 150000))
-           (randomRs (400,2000) (mkStdGen 34))
+      mapM_
+         (\p -> set "cutoff" p >> lift (threadDelay 150000))
+         (randomRs (400,2000) (mkStdGen 34))
       stop
 
 
 bassFilterGlissando :: UGen
 bassFilterGlissando =
    let ctrl = 600 * exp (lag (lfNoise0 seed KR 6) 0.1)
-       tone    = saw AR (MCE [55, 55.1]) * 0.1
-       w       = rlpf tone ctrl 0.05
+       tone = saw AR (MCE [55, 55.1]) * 0.1
+       w    = rlpf tone ctrl 0.05
    in  w
 
 
diff --git a/src/Sound/SC3/Server/PlayEasy.hs b/src/Sound/SC3/Server/PlayEasy.hs
--- a/src/Sound/SC3/Server/PlayEasy.hs
+++ b/src/Sound/SC3/Server/PlayEasy.hs
@@ -25,8 +25,10 @@
 import qualified Sound.OpenSoundControl.Transport.Monad as Trans
 import qualified Sound.OpenSoundControl.Transport.Monad.IO as TIO
 
+import Prelude hiding (init, )
 
 
+
 type NodeId = Int
 
 -- | Construct an instrument definition, send /d_recv and /s_new messages to scsynth.
@@ -42,7 +44,7 @@
 
 -- | Free all nodes and re-create group node with id 'homeId'.
 reset :: Trans.C m => m ()
-reset = send (g_freeAll [rootId]) >> init_
+reset = send (g_freeAll [rootId]) >> init
 
 -- | Bracket SC3 communication.
 withSC3 :: TIO.T UDP a -> IO a
@@ -97,8 +99,8 @@
 simpleSync :: Trans.C m => OSC -> m ()
 simpleSync o = sync o >> return ()
 
-init_ :: Trans.C m => m ()
-init_ = send (g_new [(homeId, AddToTail, rootId)])
+init :: Trans.C m => m ()
+init = send (g_new [(homeId, AddToTail, rootId)])
 
 playIdCustomOut :: Trans.C m => NodeId -> UGen -> m OSC
 playIdCustomOut sid u =
diff --git a/supercollider-ht.cabal b/supercollider-ht.cabal
--- a/supercollider-ht.cabal
+++ b/supercollider-ht.cabal
@@ -1,5 +1,5 @@
 Name:             supercollider-ht
-Version:          0.1.1
+Version:          0.1.1.1
 License:          GPL
 License-File:     LICENSE
 Copyright:        Henning Thielemann, 2008-2009
@@ -27,7 +27,7 @@
 Source-Repository this
   type:     darcs
   location: http://code.haskell.org/~thielema/supercollider/
-  tag:      0.1.1
+  tag:      0.1.1.1
 
 
 Flag splitBase
@@ -40,11 +40,11 @@
 Library
   Build-Depends: hosc >=0.8 && <0.9, hsc3 >=0.8 && <0.9
   Build-Depends: opensoundcontrol-ht >=0.1 && <0.2
-  Build-Depends: transformers >=0.2 && <0.3
+  Build-Depends: transformers >=0.2 && <0.4
   If flag(splitBase)
     Build-Depends:
       random >= 1.0 && <2,
-      process >= 1.0 && <1.1,
+      process >= 1.0 && <1.2,
       base >= 2 && <5
   Else
     Build-Depends: base >= 1.0 && < 2