diff -pru perl-5.8.7-min-patched/lib/CPAN.pm perl-5.8.7-patched/lib/CPAN.pm
--- perl-5.8.7-min-patched/lib/CPAN.pm	Mon Nov 27 20:53:56 2006
+++ perl-5.8.7-patched/lib/CPAN.pm	Mon Nov 27 20:59:08 2006
@@ -4974,7 +4974,8 @@ sub test {
     } else {
 	 $self->{make_test} = "NO";
          $self->{badtestcnt}++;
-	 $CPAN::Frontend->myprint("  $system -- NOT OK\n");
+	 # Print ID so that it is close to the harness report:
+	 $CPAN::Frontend->myprint("  $system -- NOT OK\n\t[were testing ". $self->id ."]\n");
     }
 }
 
