diff --git a/macrotypes/stx-utils.rkt b/macrotypes/stx-utils.rkt
index 0589253..42f97ca 100644
--- a/macrotypes/stx-utils.rkt
+++ b/macrotypes/stx-utils.rkt
@@ -36,7 +36,7 @@
   (and paren-prop (char=? #\{ paren-prop)))
 
 (define (stx-datum-equal? x y [eq equal?])
-  (eq (datum->stx x) (datum->stx y)))
+  (eq (stx->datum x) (stx->datum y)))
 
 (define (stx-member v stx [eq free-id=?])
   (member v (stx->list stx) eq))