diff --git a/v2v/TODO b/v2v/TODO
index d2c98dcc5..1ef5691f0 100644
--- a/v2v/TODO
+++ b/v2v/TODO
@@ -4,7 +4,7 @@ Missing features compared to Perl version:
  - Fix configure_kernel on SUSE (see Mike Latimer's email)
  - testing
 
-Progress bars for copy.
+Proper progress bars when copying.
 
 p2v:
 
diff --git a/v2v/v2v.ml b/v2v/v2v.ml
index c19fb8a81..8f964cb13 100644
--- a/v2v/v2v.ml
+++ b/v2v/v2v.ml
@@ -243,7 +243,8 @@ let rec main () =
           ?preallocation ?compat;
 
         let cmd =
-          sprintf "qemu-img convert -n -f qcow2 -O %s %s %s"
+          sprintf "qemu-img convert%s -n -f qcow2 -O %s %s %s"
+            (if not quiet then " -p" else "")
             (quote t.target_format) (quote t.target_overlay.ov_overlay_file)
             (quote t.target_file) in
         if verbose then printf "%s\n%!" cmd;