diff --git a/goof.scm b/goof.scm
index 970b0eb..f147171 100644
--- a/goof.scm
+++ b/goof.scm
@@ -206,18 +206,17 @@
     ((_ macro-name final-fun (user-finals ...) (loop-name (var step) ...) . body)
      (let-syntax ((macro-name
                    (lambda (stx)
-                     (with-ellipsis :::
                        (let loop ((lst (cdr (syntax->list stx)))
                                   (params (list #'(var step) ...)))
                          (if (null? lst)
-                             (with-syntax ((((v s) :::) params))
+                             (with-syntax ((((v s) (... ...)) params))
                                #'(inner-recur loop-name final-fun
                                               (user-finals ...)
-                                              ((v s) :::)))
+                                              ((v s) (... ...))))
                              (syntax-case (car lst) (=>)
                                ((=> name val)
                                 (loop (cdr lst) (update-name params #'name #'val)))
-                               (_ (error "Malformed looping clause in macro")))))))))
+                               (_ (error "Malformed looping clause in macro"))))))))
        . body))))