diff --git a/collects/mzlib/defmacro.ss b/collects/mzlib/defmacro.ss
index fb9d4f7a9c..39beab0bad 100644
--- a/collects/mzlib/defmacro.ss
+++ b/collects/mzlib/defmacro.ss
@@ -63,7 +63,7 @@
 		       stx
 		       (dm-subst
 			ht
-			(apply proc (cdr (dm-syntax->datum stx ht))))
+			(apply p (cdr (dm-syntax->datum stx ht))))
 		       stx))))))))])))
 
   (define-syntax defmacro