diff --git a/hCsound.cabal b/hCsound.cabal
--- a/hCsound.cabal
+++ b/hCsound.cabal
@@ -1,5 +1,5 @@
 Name:           hCsound
-Version:        0.4.0
+Version:        0.4.1
 Cabal-Version:  >= 1.2
 Description:    Haskell interface to Csound API.
 License:        LGPL
@@ -29,7 +29,7 @@
  Hs-Source-Dirs:        src
  build-depends:         base         >=3 && < 5
                        ,monads-tf    >= 0.1 && < 0.2
-                       ,transformers >= 0.2 && < 0.3
+                       ,transformers >= 0.2 && < 0.4
                        ,vector       >= 0.6 && < 0.10
  build-tools:           c2hs
  exposed-modules:       Sound.Csound
@@ -39,6 +39,7 @@
  includes:              csound.h
  extra-libraries:       sndfile
 
+ CC-Options:            -U__BLOCKS__ 
  if flag(useDouble)
     CC-Options:         -DUSE_DOUBLE
 
diff --git a/src/Sound/Csound/Interface.hs b/src/Sound/Csound/Interface.hs
--- a/src/Sound/Csound/Interface.hs
+++ b/src/Sound/Csound/Interface.hs
@@ -418,8 +418,8 @@
 setOutputValueCallback :: OutputValueCallback -> Csound ()
 setOutputValueCallback = io1cm setOutputValueCallback'
 
-scoreEvent :: Char -> [CsndFlt] -> Int -> Csound Int
-scoreEvent = io3cm scoreEvent'
+scoreEvent :: Char -> [CsndFlt] -> Csound Int
+scoreEvent c flts = (io3cm scoreEvent') c flts (length flts)
 
 -- -------------------------------------
 -- MIDI