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.7.2
+Version:       0.7.3
 Cabal-Version: >= 1.6
 License:       BSD3
 License-file:  LICENSE
diff --git a/src/Csound/Catalog/Wave/Ac.hs b/src/Csound/Catalog/Wave/Ac.hs
--- a/src/Csound/Catalog/Wave/Ac.hs
+++ b/src/Csound/Catalog/Wave/Ac.hs
@@ -49,7 +49,7 @@
 xanadu1 :: D -> SE Sig
 xanadu1 cps = do
     _ <- delayr 2    
-    [tap1, tap2, d1, d2] <- mapM deltap3 [f1, f2, 2, 1.1]    
+    ~ [tap1, tap2, d1, d2] <- mapM deltap3 [f1, f2, 2, 1.1]
     delayw $ g * damping
     return $ damping * mean [gleft, tap1, d1, gright, tap2, d2]
     where (g, gleft, gright) = xanaduPlucks cps (1/120) (cps/50)
@@ -63,7 +63,7 @@
 xanadu2 :: D -> SE Sig
 xanadu2 cps = do
     _ <- delayr 0.4
-    [d1, d2] <- mapM deltap3 [0.07, 0.105]
+    ~ [d1, d2] <- mapM deltap3 [0.07, 0.105]
     delayw $ g * damping
     return $ damping * mean [d1, gleft, d2, gright]
     where (g, gleft, gright) = xanaduPlucks cps (1/80) 6.1
diff --git a/src/Csound/Catalog/Wave/WoodwindAlg.hs b/src/Csound/Catalog/Wave/WoodwindAlg.hs
--- a/src/Csound/Catalog/Wave/WoodwindAlg.hs
+++ b/src/Csound/Catalog/Wave/WoodwindAlg.hs
@@ -126,7 +126,7 @@
         woodwindVibrato xdur asig = do   
             let ivibdepth = abs (vibCoeff * cps)
             kvibdepth <- randiPct 0.1 5 $ sig ivibdepth * linseg [0.1, 0.8 * xdur, 1, 0.2 * xdur, 0.7]
-            [ivibr1, ivibr2, ivibr3] <- mapM rndWithin $ replicate 3 (0, 1)
+            ~ [ivibr1, ivibr2, ivibr3] <- mapM rndWithin $ replicate 3 (0, 1)
             kvibrate <- randiPct 0.1 5 $ 
                 ifB (sig vibCoeff >* 0) 
                     -- if vibrato is positive it gets faster
@@ -137,7 +137,7 @@
 
         freqDeviation :: ((D, D), (D, D), (D, D), (D, D)) -> (D, D, D) -> Sig -> Rnd Sig
         freqDeviation (f1, f2, f3, f4) (iattack, isustain, idecay) asig = do
-            [fdev1, fdev2, fdev3, fdev4] <- mapM rndWithin [f1, f2, f3, f4] 
+            ~ [fdev1, fdev2, fdev3, fdev4] <- mapM rndWithin [f1, f2, f3, f4]
             return $ asig * (1 + linseg [fdev1, iattack, fdev2, isustain, fdev3, idecay, fdev4])
 
         ampVar :: D -> Sig -> Rnd Sig