diff --git a/collects/tests/eli-tester.rkt b/collects/tests/eli-tester.rkt index 8c47e297ea..011c1c3a7d 100644 --- a/collects/tests/eli-tester.rkt +++ b/collects/tests/eli-tester.rkt @@ -7,7 +7,7 @@ (syntax-case stx () [(_ expr) ;; catch syntax errors while expanding, turn them into runtime errors - (with-handlers ([exn? (lambda (e) #`(list 'error #,(exn-message e) #f))]) + (with-handlers ([exn:fail:syntax? (lambda (e) #`(list 'error #,(exn-message e) #f))]) (define-values (_ opaque) (syntax-local-expand-expression #'(with-handlers