diff --git a/collects/tests/mzscheme/beg-adv.ss b/collects/tests/mzscheme/beg-adv.ss index c9894f3a03..29bb105d8e 100644 --- a/collects/tests/mzscheme/beg-adv.ss +++ b/collects/tests/mzscheme/beg-adv.ss @@ -201,6 +201,6 @@ (htdp-syntax-test #'(my-y 17) #rx"not defined, not an argument, and not a primitive name") (htdp-syntax-test #'(cond [true my-y 17]) #rx"not defined, not an argument, and not a primitive name") (htdp-syntax-test #'(define my-f 12) #rx"cannot be re-defined") -(htdp-syntax-test #'(define my-x 12) #rx"cannot be re-defined") +(htdp-syntax-test #'(define (my-x h) 12) #rx"cannot be re-defined") (htdp-top-pop 1) (htdp-top-pop 1)