diff --git a/split-record.cabal b/split-record.cabal
--- a/split-record.cabal
+++ b/split-record.cabal
@@ -1,5 +1,5 @@
 Name:           split-record
-Version:        0.1.1.1
+Version:        0.1.1.2
 License:        BSD3
 License-File:   LICENSE
 Author:         Henning Thielemann <haskell@henning-thielemann.de>
@@ -24,7 +24,7 @@
 Build-Type:     Simple
 
 Source-Repository this
-  Tag:         0.1.1.1
+  Tag:         0.1.1.2
   Type:        darcs
   Location:    http://code.haskell.org/~thielema/split-record/
 
@@ -40,7 +40,7 @@
     synthesizer-core >=0.5.1 && <0.8,
     soxlib >=0.0 && <0.1,
     storablevector >=0.2.8 && <0.3,
-    transformers >=0.2 && <0.5,
+    transformers >=0.2 && <0.6,
     utility-ht >=0.0.1 && <0.1,
     numeric-prelude >=0.3 && <0.5,
     base >=4 && <5
diff --git a/src/Main.hs b/src/Main.hs
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -298,9 +298,6 @@
                SVL.ChunkSize size -> SVL.ChunkSize $ numChan * size)
 
 
-shorten :: (Storable a) => SVL.Vector a -> SVL.Vector a
-shorten = SVL.take (25*10^6)
-
 monoInfoFromFormat ::
    SoxLib.Format mode -> Params -> SoxLib.WriterInfo
 monoInfoFromFormat fmtIn params =
@@ -373,6 +370,7 @@
    ListHT.mapAdjacent (,) $
    map (\t ->
       case divMod (Real.roundSimple (fromIntegral t * 10^6 / sampleRate params)) (10^6) of
+         -- FIXME: the comma is certainly only correct in German locale
          (seconds,micros) ->
             printf "%d,%06d" seconds (micros::Integer) :: String) $
    scanl (+) 0 $
@@ -393,7 +391,7 @@
 
 
 main :: IO ()
-main = do
+main = SoxLib.formatWith $ do
    argv <- getArgs
    let (opts, files, errors) =
           getOpt Opt.RequireOrder description argv