diff --git a/haskore-supercollider.cabal b/haskore-supercollider.cabal
--- a/haskore-supercollider.cabal
+++ b/haskore-supercollider.cabal
@@ -1,5 +1,5 @@
 Name:           haskore-supercollider
-Version:        0.1.2
+Version:        0.1.2.1
 License:        GPL
 License-File:   LICENSE
 Author:         Henning Thielemann <haskell@henning-thielemann.de>
@@ -26,7 +26,7 @@
 Source-Repository this
   type:     darcs
   location: http://code.haskell.org/haskore/revised/supercollider/
-  tag:      0.1.2
+  tag:      0.1.2.1
 
 Flag splitBase
   description: Choose the new smaller, split-up base package.
@@ -40,8 +40,8 @@
     haskore-realtime >= 0.1 && < 0.2,
     haskore >=0.1 && <0.3,
     -- for SuperCollider support
-    hosc >=0.6 && <0.7,
-    hsc3 >=0.6 && <0.7,
+    hosc >=0.8 && <0.9,
+    hsc3 >=0.8 && <0.9,
     opensoundcontrol-ht >=0.1 && <0.2,
     supercollider-ht >=0.1 && <0.2,
     bytestring >=0.9 && <1.0,
diff --git a/src/Haskore/Interface/SuperCollider/Example.hs b/src/Haskore/Interface/SuperCollider/Example.hs
--- a/src/Haskore/Interface/SuperCollider/Example.hs
+++ b/src/Haskore/Interface/SuperCollider/Example.hs
@@ -10,7 +10,7 @@
 import qualified Sound.SC3.UGen.Rate       as SCRate
 import qualified Sound.SC3.UGen.Oscillator as SCOsci
 import qualified Sound.SC3.UGen.Filter     as SCFilter
-import qualified Sound.SC3.UGen.Noise.Base as SCNoise
+import qualified Sound.SC3.UGen.Noise.ID   as SCNoise
 import qualified Sound.SC3.UGen.Envelope   as SCEnv
 import qualified Sound.SC3.UGen.Envelope.Construct as SCEnvCons
 import Sound.SC3.UGen.Enum
@@ -217,7 +217,7 @@
 colorDust sampleRate =
   SoundMap.instrumentFromUGen $ \ _vel freq ->
     0.0005 * SCFilter.rlpf
-      (SCUGen.Constant sampleRate * SCNoise.dust zeroUId SCRate.AR 10)
+      (SCUGen.Constant sampleRate * SCNoise.dust seed SCRate.AR 10)
       freq 0.01
 
 
@@ -347,13 +347,13 @@
           [clippedFadeDur, max 0 (sustainDur-fadeDur), clippedFadeDur]
           segTypes (-1) (-1)
 
-zeroUId :: SCUGen.UGenId
-zeroUId = SCUGen.UGenId 0
+seed :: Int
+seed = 0
 
 hihat :: SoundMap.Drum
 hihat =
   SoundMap.drumFromUGen $ \ vel ->
-   let noise = SCNoise.whiteNoise zeroUId SCRate.AR
+   let noise = SCNoise.whiteNoise seed SCRate.AR
    in  SCFilter.hpf noise (SCUGen.MCE [4000, 4001]) *
        SCEnv.xLine SCRate.KR 1 0.01 0.2 DoNothing * vel * 0.25
 
@@ -397,7 +397,7 @@
 --       nsenv = 0.02 + SCEnv.xLine SCRate.KR 2 0.00001 0.15 DoNothing
        nsenv = SCEnv.line  SCRate.KR 0.02 0.02 0.15 PauseSynth +
                SCEnv.xLine SCRate.KR 2 0.00001 0.15 PauseSynth
-       noise = SCFilter.lpf (SCNoise.whiteNoise zeroUId SCRate.AR) 5000 * nsenv
+       noise = SCFilter.lpf (SCNoise.whiteNoise seed SCRate.AR) 5000 * nsenv
        drm   = SCMath.clip2 0.5 (osci + noise) * vel * 0.8
    in  SCUGen.MCE [drm,drm]
 
diff --git a/src/Haskore/Interface/SuperCollider/Play/Live.hs b/src/Haskore/Interface/SuperCollider/Play/Live.hs
--- a/src/Haskore/Interface/SuperCollider/Play/Live.hs
+++ b/src/Haskore/Interface/SuperCollider/Play/Live.hs
@@ -20,7 +20,7 @@
 import qualified Sound.SC3.UGen.Oscillator as SCOsci
 import qualified Sound.SC3.UGen.Filter     as SCFilt
 import qualified Sound.SC3.UGen.Envelope   as SCUGEnv
-import qualified Sound.SC3.UGen.Noise.Base as SCNoise
+import qualified Sound.SC3.UGen.Noise.ID   as SCNoise
 import qualified Sound.SC3.UGen.UId as SCUId
 
 import Sound.SC3.UGen.Enum (DoneAction(DoNothing, PauseSynth))
diff --git a/src/Haskore/Interface/SuperCollider/SoundMap.hs b/src/Haskore/Interface/SuperCollider/SoundMap.hs
--- a/src/Haskore/Interface/SuperCollider/SoundMap.hs
+++ b/src/Haskore/Interface/SuperCollider/SoundMap.hs
@@ -32,7 +32,7 @@
 
 attributeControl :: Int -> UGen
 attributeControl n =
-   SCUGen.Control SCRate.KR (attributeName n) 0
+   SCUGen.control SCRate.KR (attributeName n) 0
 
 attributeName :: Int -> String
 attributeName n = "attribute" ++ show n
@@ -41,7 +41,7 @@
 attributeNames = map attributeName [0..]
 
 control :: String -> UGen
-control name = SCUGen.Control SCRate.KR name 0
+control name = SCUGen.control SCRate.KR name 0
 
 pitchName :: String
 pitchName = "pitch"