diff --git a/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl b/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
index 68b798333d..9e2d838503 100644
--- a/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
+++ b/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
@@ -29,6 +29,10 @@ sub generate_db
 	}
 
 	$dbname .= $suffix;
+
+	# Old IPC::Run mis-quotes command line arguments containing '"' on Windows
+	$dbname =~ tr/\"//d if ($windows_os);
+
 	$node->command_ok(
 		[ 'createdb', $dbname ],
 		"created database with ASCII characters from $from_char to $to_char");