diff --git a/jammittools.cabal b/jammittools.cabal
--- a/jammittools.cabal
+++ b/jammittools.cabal
@@ -1,5 +1,5 @@
 Name:               jammittools
-Version:            0.5.3
+Version:            0.5.3.2
 Synopsis:           Export sheet music and audio from Windows/Mac app Jammit
 Description:
 
@@ -39,7 +39,7 @@
     , directory     >= 1.2.0.1   && < 1.4
     , filepath      >= 1.3.0.1   && < 1.5
     , containers    >= 0.5.0.0   && < 0.6
-    , process       >= 1.1.0.2   && < 1.6
+    , process       >= 1.1.0.2   && < 1.7
     , temporary     >= 1.1.2.5   && < 1.3
     , transformers  >= 0.3.0.0   && < 0.6
     , JuicyPixels   >= 3.2.7     && < 3.3
@@ -61,7 +61,7 @@
     , directory     >= 1.2.0.1 && < 1.4
     , filepath      >= 1.3.0.1 && < 1.5
     , boxes         >= 0.1.3   && < 0.2
-    , jammittools   == 0.5.3
+    , jammittools
   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
@@ -33,7 +33,7 @@
 import System.Environment (lookupEnv)
 import qualified Data.Map as Map
 import qualified System.Directory as Dir
-import System.FilePath ((</>))
+import System.FilePath ((</>), takeFileName, dropTrailingPathSeparator)
 import qualified System.Info as Info
 
 import Sound.Jammit.Internal.PropertyList
@@ -233,11 +233,13 @@
 -- | Searches a directory and all subdirectories for folders containing a Jammit
 -- info file.
 songSubdirs :: FilePath -> IO [FilePath]
-songSubdirs dir = do
-  isSong <- Dir.doesFileExist $ dir </> "info.plist"
-  let here = [dir | isSong]
-  subdirs <- lsAbsolute dir >>= filterM Dir.doesDirectoryExist
-  (here ++) . concat <$> mapM songSubdirs subdirs
+songSubdirs dir = case takeFileName $ dropTrailingPathSeparator dir of
+  fn@('.' : _ : _) | fn /= ".." -> return []
+  _                             -> do
+    isSong <- Dir.doesFileExist $ dir </> "info.plist"
+    let here = [dir | isSong]
+    subdirs <- lsAbsolute dir >>= filterM Dir.doesDirectoryExist
+    (here ++) . concat <$> mapM songSubdirs subdirs
 
 data Beat = Beat
   { isDownbeat  :: Bool