--- a/imager	Sun Jul 24 22:43:08 2011 +0200
+++ b/imager	Mon Jul 25 08:58:47 2011 +0200
@@ -96,7 +96,7 @@
 
     local $SIG{ALRM} = sub {
 	my $speed = ($stats{written} + $stats{skipped}) / (time - $^T + 1);
-	say sprintf "# done %4.1f%% | %24s (%*d of $stats{todo}, written %*d, skipped %*d)",
+	say sprintf "# done %5.1f%% | %24s (%*d of $stats{todo}, written %*d, skipped %*d)",
 	    100 * (($stats{written}+$stats{skipped})/$stats{todo}), 
 	    ($speed ? (scalar localtime($^T + $stats{todo} / $speed)) : ""),
 	    length($stats{todo}) => $stats{written} + $stats{skipped},