diff -up rpmdevtools-8.3/spectool.in.orig rpmdevtools-8.3/spectool.in
--- rpmdevtools-8.3/spectool.in.orig	2020-11-23 14:17:49.231979840 +0100
+++ rpmdevtools-8.3/spectool.in	2020-11-23 14:18:30.411761075 +0100
@@ -201,7 +201,7 @@ sub retrievable {
 sub retrieve {
 	my ($where, $url) = @_;
 	if (retrievable ($url)) {
-		my $path = File::Spec->catfile($where, $url =~ m|([^/]+)$|);
+		my $path = File::Spec->catfile($where, $url =~ m|([^/]+?)(?:\?[^/]*)?$|);
 		print "Getting $url to $path\n";
 		if (-e $path) {
 			if ($force) {