diff --git a/csound-expression-typed.cabal b/csound-expression-typed.cabal
--- a/csound-expression-typed.cabal
+++ b/csound-expression-typed.cabal
@@ -1,5 +1,5 @@
 Name:          csound-expression-typed
-Version:       0.0.9
+Version:       0.0.9.1
 Cabal-Version: >= 1.22
 License:       BSD3
 License-file:  LICENSE
diff --git a/src/Csound/Typed/GlobalState/Elements.hs b/src/Csound/Typed/GlobalState/Elements.hs
--- a/src/Csound/Typed/GlobalState/Elements.hs
+++ b/src/Csound/Typed/GlobalState/Elements.hs
@@ -360,12 +360,12 @@
     return (fmap readOnlyVar vars, zipWithM_ (appendVarBy (+)) vars sigs)
 
 sendChn :: Monad m => Int -> Int -> [E] -> DepT m ()
-sendChn arityIns arityOuts sigs = writeChn (chnRefFromParg (chnPargId arityIns) arityOuts) (fmap scaleVolumeFactor sigs)
+sendChn arityIns arityOuts sigs = writeChn (chnRefFromParg (chnPargId arityIns) arityOuts) sigs
 
 chnPargId :: Int -> Int
 chnPargId arityIns = 4 + arityIns
 
-scaleVolumeFactor :: E -> E
-scaleVolumeFactor = (setRate Ir (C.midiVolumeFactor (pn 1)) * )
+-- scaleVolumeFactor :: E -> E
+-- scaleVolumeFactor = (setRate Ir (C.midiVolumeFactor (pn 1)) * )
 
 -- guis