diff --git a/README.md b/README.md
index ba4ffea..6d1acb6 100644
--- a/README.md
+++ b/README.md
@@ -55,8 +55,7 @@
    -p  indique le préfixe utilisé pour renommer les fichiers téléchargés (par défaut, “f”).
        Ce préfixe est ensuite suivi d’un numéro séquentiel et de l’extension correspondant
        au type de document téléchargé. Si la valeur de l’option “-p” est “0”, alors
-       le fichier garde son nom original, c’est-à-dire l’identifiant ISTEX, mais pas 
-       en présence de l’option “-c”
+       le fichier garde son nom original, c’est-à-dire l’identifiant ISTEX
    -q  indique la requête à utiliser, entre simples quotes en présence de blancs ou de
        caractères spéciaux (incompatible avec l’option “-c”)
    -r  provoque une sortie dans un ordre aléatoire en fonction d’une “graine” aléatoire
diff --git a/harvestCorpus.pl b/harvestCorpus.pl
index 40d75c4..c97a978 100755
--- a/harvestCorpus.pl
+++ b/harvestCorpus.pl
@@ -28,8 +28,8 @@
             "    $substitut [ -f nombre ] [ -j jeton ] [ -z [gzip|bzip2]]\n" . 
             "    $programme -h \n\n";
 
-my $version     = "4.3.2";
-my $dateModif   = "10 Avril 2018";
+my $version     = "4.4.0";
+my $dateModif   = "27 Avril 2018";
 
 # Variables
 my $aide            = 0;
@@ -114,8 +114,7 @@
 	print "   -p  indique le préfixe utilisé pour renommer les fichiers téléchargés (par défaut, “f”).\n";
 	print "       Ce préfixe est ensuite suivi d'un numéro séquentiel et de l'extension correspondant \n";
 	print "       au type de document téléchargé. Si la valeur de l’option “-p” est “0”, alors \n";
-	print "       le fichier garde son nom original, c’est-à-dire l’identifiant ISTEX, mais pas en \n";
-	print "       présence de l’option “-c” \n";
+	print "       le fichier garde son nom original, c’est-à-dire l’identifiant ISTEX \n";
 	print "   -q  indique la requête à utiliser, entre simples quotes en présence de blancs ou de \n";
 	print "       caractères spéciaux (incompatible avec l’option “-c”)\n";
 	print "   -r  provoque une sortie dans un ordre aléatoire en fonction d'une “graine” aléatoire \n";
@@ -177,14 +176,14 @@
 
 if ( defined $prefixe ) {
 	if ( not $prefixe ) {
-		if ( $requete ) {
+#		if ( $requete ) {
 			$gardeId ++;
-			}
-		else	{
-			$prefixe = "f";
-			print STDERR "Attention : l’option “-p 0” n’est pas compatible avec l’option “-c”.\n";
-			print STDERR "            ⇒ utilisation de la valeur par défaut “f”.\n";
-			}
+#			}
+#		else	{
+#			$prefixe = "f";
+#			print STDERR "Attention : l’option “-p 0” n’est pas compatible avec l’option “-c”.\n";
+#			print STDERR "            ⇒ utilisation de la valeur par défaut “f”.\n";
+#			}
 		}
 	elsif ( $prefixe !~ /^[A-Za-z](\w*-)?\w+\z/ ) {
 		$prefixe = "f";
@@ -720,7 +719,7 @@
 my $extension = "";
 
 if ( $source ) {
-	my $racine = "";$prefixe . sprintf($format, $num);
+	my $racine = "";
 	if ( $gardeId ) {
 		$racine = $hit{'id'};
 		}
@@ -915,7 +914,10 @@
 my $id  = $hit{'id'};
 
 my $nom = undef;
-if ( defined $nom{$ark} ) {
+if ( $gardeId ) {
+	$nom = $id;
+	}
+elsif ( defined $nom{$ark} ) {
 	$nom = $nom{$ark};
 	delete $nom{$ark};
 	}