Wrong location reported by test macro

rackunit-loc-test.rkt

#lang racket

(require
 rackunit
 (for-syntax syntax/parse))

(define-simple-check (check-foo? actual)
  (equal? actual 'foo))

(define-syntax (test-foo? stx)
  (syntax-parse stx
    [(_  name actual)
     (syntax/loc stx
       (test-case name (check-foo? actual)))]))

(test-foo? "test 1" 'a)

(test-case "test 2" (check-foo? 'b))

#| Output:

--------------------
test 1
FAILURE
name:       check-foo?
location:   (#<path:/home/schu/tmp/rackunit-loc-test.rkt> 15 23 247 19)
expression: (check-foo? 'a)
params:     (a)

. Check failure
--------------------
--------------------
test 2
FAILURE
name:       check-foo?
location:   (#<path:/home/schu/tmp/rackunit-loc-test.rkt> 19 20 318 15)
expression: (check-foo? 'b)
params:     (b)

. Check failure
--------------------

|#