diff --git a/Data/Git/Named.hs b/Data/Git/Named.hs
index 93cce0e7c24edd95bdf58677f4343630cc1706af..046426478574bf32241e2da7f8a6200b2c612d34 100644
--- a/Data/Git/Named.hs
+++ b/Data/Git/Named.hs
@@ -142,7 +142,7 @@ listRefs root = listRefsAcc [] root
         getRefsRecursively dir acc (x:xs) = do
             isDir <- isDirectory x
             extra <- if isDir
-                        then listRefsAcc [] dir
+                        then listRefsAcc [] x
                         else let r = UTF8.toString $ localPathEncode $ stripRoot x
                               in if isValidRefName r
                                     then return [fromString r]