diff --git a/jammittools.cabal b/jammittools.cabal
--- a/jammittools.cabal
+++ b/jammittools.cabal
@@ -1,5 +1,5 @@
 Name:               jammittools
-Version:            0.5
+Version:            0.5.0.1
 Synopsis:           Export sheet music and audio from Windows/Mac app Jammit
 Description:
 
@@ -61,7 +61,7 @@
     , directory     >= 1.2.0.1 && < 1.3
     , filepath      >= 1.3.0.1 && < 1.5
     , boxes         >= 0.1.3   && < 0.2
-    , jammittools   == 0.5
+    , jammittools   == 0.5.0.1
   ghc-options:      -Wall -O2
 
 source-repository head
diff --git a/src/Sound/Jammit/Base.hs b/src/Sound/Jammit/Base.hs
--- a/src/Sound/Jammit/Base.hs
+++ b/src/Sound/Jammit/Base.hs
@@ -29,6 +29,7 @@
 import Control.Applicative ((<|>))
 import Control.Monad (filterM, guard, forM)
 import Data.Char (toLower)
+import Data.Maybe (fromMaybe)
 import System.Environment (lookupEnv)
 import qualified Data.Map as Map
 import qualified System.Directory as Dir
@@ -240,9 +241,9 @@
 instance PropertyListItem Beat where
   fromPropertyList pl = do
     dict <- fromPropertyList pl
-    isDownbeat  <- fromLookup "isDownbeat"  dict
-    isGhostBeat <- fromLookup "isGhostBeat" dict
-    position    <- fromLookup "position"    dict
+    let isDownbeat  = fromMaybe False $ fromLookup "isDownbeat"  dict
+        isGhostBeat = fromMaybe False $ fromLookup "isGhostBeat" dict
+    position       <-                   fromLookup "position"    dict
     return Beat{..}
 
 loadBeats :: FilePath -> IO (Maybe [Beat])