diff --git a/src/Lib/Registry.hs b/src/Lib/Registry.hs
index eb48754..d6e831f 100644
--- a/src/Lib/Registry.hs
+++ b/src/Lib/Registry.hs
@@ -75,7 +75,7 @@ loadRegistry rootDirectory = liftIO $ do
             pure $ insert appId (fromList . catMaybes $ versionApps) registry
         ) empty appDirectories
     where
-        getSubDirectories path = listDirectory path >>= filterM doesDirectoryExist
+        getSubDirectories path = listDirectory path >>= filterM (doesDirectoryExist . (path </>))
 
 
 getAppFileFromDir :: String -> String -> AppVersion -> IO (Maybe FilePath)