diff --git a/bup-backup.hs b/bup-backup.hs
index 7e82e45..43f12e1 100755
--- a/bup-backup.hs
+++ b/bup-backup.hs
@@ -43,7 +43,9 @@ findPath server path = do
 backup :: String -> String -> Segment ()
 backup server name = do
   path <- findPath server (name </> "latest")
+  echo "indexing" name
   proc "bup" ("index" : path : "--exclude-rx" : excluded)
+  echo "saving" name
   bup "save" "-r" server "-n" name path