--- scripts/Dpkg/Source/Archive.pm.orig
+++ scripts/Dpkg/Source/Archive.pm
@@ -94,7 +94,7 @@ sub finish {
     my $self = shift;

     close(*$self->{tar_input}) or syserr(g_('close on tar input'));
-    wait_child(*$self->{pid}, cmdline => 'tar -cf -');
+    wait_child(*$self->{pid}, cmdline => 'gnutar -cf -');
     delete *$self->{pid};
     delete *$self->{tar_input};
     delete *$self->{cwd};