diff --git a/functions.rkt b/functions.rkt
index d9abe29..cee1160 100644
--- a/functions.rkt
+++ b/functions.rkt
@@ -84,7 +84,7 @@
     (check-false (g #t #f))
     (check-exn exn:fail? (λ () (g #t #f #f))))
 
-  (define-syntax-parse-rule (make-tabulate* name:id row-op)
+  (define-syntax-parse-rule (make-tabulate* name:id row-op:id)
     (define (name funcs doms)
       (for/list ([xs (in-list (apply cartesian-product doms))])
         (row-op xs (for/list ([f funcs]) : (Listof b)