diff --git a/csound-catalog.cabal b/csound-catalog.cabal
--- a/csound-catalog.cabal
+++ b/csound-catalog.cabal
@@ -1,5 +1,5 @@
 Name:          csound-catalog
-Version:       0.6.0
+Version:       0.6.1
 Cabal-Version: >= 1.6
 License:       BSD3
 License-file:  LICENSE
diff --git a/src/Csound/Catalog/Wave/Sharc.hs b/src/Csound/Catalog/Wave/Sharc.hs
--- a/src/Csound/Catalog/Wave/Sharc.hs
+++ b/src/Csound/Catalog/Wave/Sharc.hs
@@ -93,7 +93,7 @@
 
 -- | Plays a orchestrated instrument (with pitch chorus)
 orcSharcOsc :: SharcInstr -> D -> SE Sig
-orcSharcOsc instr cps = mul (fades 0.01 0.42) $ uni (rndSharcOsc instr . ir) (sig cps)
+orcSharcOsc instr cps = mul (fades 0.01 0.42) $ uni (rndSigSharcOsc instr cps) (sig cps)
 
 -- | Plays a solo instrument with pad-like envelope
 purePadSharcOsc :: SharcInstr -> D -> SE Sig
@@ -101,7 +101,7 @@
 
 -- | Plays orchestrated instrument with pad-like envelope
 padSharcOsc :: SharcInstr -> D -> SE Sig
-padSharcOsc instr cps = mul (fades 0.65 0.75) $ uni (rndSharcOsc instr . ir) (sig cps)
+padSharcOsc instr cps = mul (fades 0.65 0.75) $ uni (rndSigSharcOsc instr cps) (sig cps)
 
 ---------------------------------------------------------------------------
 -- padsynth
diff --git a/src/Csound/Patch.hs b/src/Csound/Patch.hs
--- a/src/Csound/Patch.hs
+++ b/src/Csound/Patch.hs
@@ -490,6 +490,12 @@
 dreamPadBy' :: Sig -> (Sig -> SE Sig) -> Patch2
 dreamPadBy' bright wave = dreamPadFx $ polySynt $ fmap fromMono . onCps (C.dreamPadBy wave bright)    
 
+dreamPadWithKey :: (D -> Sig -> SE Sig) -> Patch2
+dreamPadWithKey = dreamPadWithKey' 0.35
+
+dreamPadWithKey' :: Sig -> (D -> Sig -> SE Sig) -> Patch2
+dreamPadWithKey' bright wave = dreamPadFx $ polySynt $ fmap fromMono . onCps (\cps ->  (C.dreamPadBy (wave cps) bright) (sig cps))
+
 -- | The first argument is brightness (0 to 1)
 dreamPadm' :: Sig -> Patch2
 dreamPadm' bright = dreamPadFx $ MonoSynt def $ fmap fromMono . onSig1 (C.dreamPad bright)    
@@ -1273,11 +1279,11 @@
 
 -- | Dream Pad patch made with SHARC oscillators.
 dreamSharc :: SharcInstr -> Patch2
-dreamSharc instr = dreamPadBy (\cps -> C.rndSigSharcOsc instr (ir cps) cps)
+dreamSharc instr = dreamPadWithKey (C.rndSigSharcOsc instr)
 
 -- | Dream Pad patch made with SHARC oscillators.
 dreamSharc' :: SharcInstr -> Sig -> Patch2
-dreamSharc' instr brightness = dreamPadBy' brightness (\cps -> C.rndSigSharcOsc instr (ir cps) cps) 
+dreamSharc' instr brightness = dreamPadWithKey' brightness (C.rndSigSharcOsc instr)
 
 type PadsynthBandwidth = Double