diff --git a/src/progress.scm b/src/progress.scm
index b7bfd53..aa69406 100644
--- a/src/progress.scm
+++ b/src/progress.scm
@@ -184,15 +184,15 @@
        (lambda () body ...)))))
 
  ;; Runs multiple partial progresses
- (define (run-with-progresses% echo? name proc)
+ (define (run-with-progresses% echo? name count proc)
    (proc))
 
  ;; Syntax wrapper
  (define-syntax with-progresses%
    (syntax-rules ()
-     ((_ echo? name body ...)
+     ((_ echo? name count body ...)
       (run-with-progresses%
-       echo? name
+       echo? name count
        (lambda () body ...)))))
 
  ;; Adds name to list of partial progress names, uses the same