diff --git a/csound-expression-dynamic.cabal b/csound-expression-dynamic.cabal
--- a/csound-expression-dynamic.cabal
+++ b/csound-expression-dynamic.cabal
@@ -1,5 +1,5 @@
 Name:          csound-expression-dynamic
-Version:       0.1.1
+Version:       0.1.2
 Cabal-Version: >= 1.6
 License:       BSD3
 License-file:  LICENSE
diff --git a/src/Csound/Dynamic/Build.hs b/src/Csound/Dynamic/Build.hs
--- a/src/Csound/Dynamic/Build.hs
+++ b/src/Csound/Dynamic/Build.hs
@@ -20,7 +20,7 @@
     Specs, specs, MultiOut, mopcs, mo, 
 
     -- * Global init statements
-    setSr, setKsmps, setNchnls, setKr, setZeroDbfs
+    setSr, setKsmps, setNchnls, setNchnls_i, setKr, setZeroDbfs
 ) where
 
 import qualified Data.Map as M(fromList)
@@ -173,13 +173,14 @@
 ----------------------------------------------------------------
 -- global inits
 
-setSr, setKsmps, setNchnls, setKr :: Monad m => Int -> DepT m ()
+setSr, setKsmps, setNchnls, setNchnls_i, setKr :: Monad m => Int -> DepT m ()
     
 setZeroDbfs :: Monad m => Double -> DepT m  ()
 
 setSr       = gInit "sr"
 setKr       = gInit "kr"
 setNchnls   = gInit "nchnls"
+setNchnls_i = gInit "nchnls_i"
 setKsmps    = gInit "ksmps"
 setZeroDbfs = gInitDouble "0dbfs"
 
diff --git a/src/Csound/Dynamic/Render/Instr.hs b/src/Csound/Dynamic/Render/Instr.hs
--- a/src/Csound/Dynamic/Render/Instr.hs
+++ b/src/Csound/Dynamic/Render/Instr.hs
@@ -42,12 +42,12 @@
 
 getFrameInfo :: RatedExp a -> FrameInfo
 getFrameInfo x = case ratedExpExp x of
-    -- | Imperative If-then-else
+    -- Imperative If-then-else
     IfBegin _     -> StartFrame
     ElseIfBegin _ -> NextFrame
     ElseBegin     -> NextFrame 
     IfEnd         -> StopFrame
-    -- | looping constructions
+    -- looping constructions
     UntilBegin _ -> StartFrame
     UntilEnd     -> StopFrame
     _            -> NoFrame
diff --git a/src/Csound/Dynamic/Types/Flags.hs b/src/Csound/Dynamic/Types/Flags.hs
--- a/src/Csound/Dynamic/Types/Flags.hs
+++ b/src/Csound/Dynamic/Types/Flags.hs
@@ -194,7 +194,7 @@
         , midiVelocityAmp   = midiVelocityAmp a <|> midiVelocityAmp b
         , midiOutDevice     = midiOutDevice a <|> midiOutDevice b }
 
-data Rtmidi = PortMidi | AlsaMidi | MmeMidi | WinmmMidi | VirtualMidi | NoRtmidi
+data Rtmidi = PortMidi | AlsaMidi | CoreMidi | MmeMidi | WinmmeMidi | VirtualMidi | NoRtmidi
 
 -- Display
 
@@ -413,8 +413,9 @@
         VirtualMidi -> "virtual"
         PortMidi    -> "PortMidi"
         AlsaMidi    -> "alsa"
+        CoreMidi    -> "coremidi"
         MmeMidi     -> "mme"
-        WinmmMidi   -> "winmm"
+        WinmmeMidi  -> "winmme"
         NoRtmidi    -> "0"
 
 instance Pretty Displays where