diff --git a/src/progress.scm b/src/progress.scm
index 0d33e3c..c80834b 100644
--- a/src/progress.scm
+++ b/src/progress.scm
@@ -143,8 +143,8 @@
  (define (run-with-progress% echo? name thunk)
    (parameterize ((*current-progress%* name)
 		  (*current-progress%-echo?* echo?)
-		  (*current-progress%-value* #f)
-		  (*current-progress%-last-value* 0)
+		  (*current-progress%-value* 0)
+		  (*current-progress%-last-value* #f)
 		  (*current-progress%-range* (cons 0 1)))
      (print-current-progress%)
      (let ((result (thunk)))