diff --git a/commitly b/commitly
index a517fa6..c60178b 100755
--- a/commitly
+++ b/commitly
@@ -18,11 +18,16 @@
     (not (str/blank? (:out result)))))
 
 (defn find-subrepos [parent-dir]
-  "Find all git repositories in parent directory"
-  (->> (fs/list-dir parent-dir)
-       (filter fs/directory?)
-       (filter git-repo?)
-       (map str)))
+  "Find all git repositories in parent directory, including parent itself"
+  (let [child-repos (->> (fs/list-dir parent-dir)
+                         (filter fs/directory?)
+                         (filter git-repo?)
+                         (map str))
+        parent-is-repo? (git-repo? parent-dir)
+        repos (if parent-is-repo?
+                (cons (str parent-dir) child-repos)
+                child-repos)]
+    repos))
 
 (defn commit-changes [repo-path message]
   "Commit all changes in repository with given message"