diff --git a/tools/make_disc_trees.pl b/tools/make_disc_trees.pl
index ff62477c..c1a87768 100755
--- a/tools/make_disc_trees.pl
+++ b/tools/make_disc_trees.pl
@@ -191,6 +191,7 @@ while (defined (my $pkg = <INLIST>)) {
         if ($disknum > $maxcds) {
             print LOG "Disk $disknum is beyond the configured MAXCDS of $maxcds; exiting now...\n";
             $max_done = 1;
+            $disknum--;
             last;
         }
         print LOG "Starting new disc $disknum at " . `date` . "\n";