diff --git a/scripts/generate-patches.pl.in b/scripts/generate-patches.pl.in
index 3a35b8518c..4a0233f0f9 100755
--- a/scripts/generate-patches.pl.in
+++ b/scripts/generate-patches.pl.in
@@ -277,7 +277,7 @@ foreach my $p (keys %dstOutPaths) {
         my $srcNarBz2 = getNarBz2 \%srcNarFiles, $closest;
         my $dstNarBz2 = getNarBz2 \%dstNarFiles, $p;
 
-        my $maxNarSize = 150 * 1024 * 1024;
+        my $maxNarSize = 100 * 1024 * 1024;
 
         system("@bunzip2@ < $srcNarBz2 > $tmpDir/A") == 0
             or die "cannot unpack $srcNarBz2";
diff --git a/scripts/maintenance/readcache.pm b/scripts/maintenance/readcache.pm
index c0657913ea..f6beeeeb46 100644
--- a/scripts/maintenance/readcache.pm
+++ b/scripts/maintenance/readcache.pm
@@ -15,7 +15,7 @@ sub readDir {
 }
 
 readDir "/data/webserver/dist/nix-cache";
-readDir "/data/webserver/dist/test";
+readDir "/data/webserver/dist/test-cache";
 readDir "/data/webserver/dist/patches";
 
 print STDERR scalar (keys %archives), "\n";