diff --git a/d-/test.scm b/d-/test.scm
index 6a85fc9..a8ee521 100644
--- a/d-/test.scm
+++ b/d-/test.scm
@@ -13,7 +13,7 @@
   (lambda (stx)
     (with-syntax ([fail (datum->syntax stx 'fail)])
       (define (assert-stx expr)
-        (syntax-case expr (assert-equal assert-not-equal)
+        (syntax-case expr (assert-equal assert-not-equal assert-unspecified)
           [(assert-equal e a) #'(assert e a equal? fail)]
           [(assert-not-equal e a) #'(assert e a (compose not equal?) fail)]
           [(assert-unspecified v) #'(assert (when #f 'a) v eq? fail)]