diff --git a/support-d/utils/fixbug.pl b/support-d/utils/fixbug.pl
index 188a19aed4..de3891bf6f 100755
--- a/support-d/utils/fixbug.pl
+++ b/support-d/utils/fixbug.pl
@@ -11,7 +11,8 @@ GetOptions(
     'msg=s' => \$opts{msg},
     'debug' => \$opts{debug},
     'append=s' => \$opts{append},
-    'comment=s' => \$opts{comment}
+    'comment=s' => \$opts{comment},
+    'author=s' => \$opts{author}
     ) or die "Usage: $0 -bug <bug-id> [-m [edit|<msg>]] [-append <msg>] [-debug] <files>\n";
 
 
@@ -70,6 +71,10 @@ if ($auto) {
   $gitcmd = "git commit $args -t /tmp/$opts{bug}.tmp";
 }
 
+if ($opts{author}) {
+    $gitcmd .= " --author \"$opts{author}\"";
+}
+
 if ($opts{debug}) {
     print "CMD: $gitcmd\n";
 } else {