diff --git a/bin/git-qt-grafts b/bin/git-qt-grafts
index 6fe38a15d297452748582615b6b507f7403bd24c..6a8872bb4dee958b178088802838e4a3a2f4332c 100755
--- a/bin/git-qt-grafts
+++ b/bin/git-qt-grafts
@@ -99,8 +99,10 @@ while (<$GIT_REVLIST>) {
 close($GIT_REVLIST);
 
 my $found_any_grafts = 0;
+mkdir("$git_dir/info");
 my $graft_file = "$git_dir/info/grafts";
 my @graft_lines;
+
 foreach my $commit (@commits) {
     # find the graft point which the commit mentions
     my $commit_msg = `git show -s --format=%b $commit`;