From 6d59b5e60dc783856af4bbe9b73eaa2e5aa1a808 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 10 Dec 2015 09:29:15 -0700
Subject: [PATCH] unbreak `test-case`

Fix a mistake in 644a4c550f.
---
 rackunit-lib/rackunit/private/test-case.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rackunit-lib/rackunit/private/test-case.rkt b/rackunit-lib/rackunit/private/test-case.rkt
index 12aeaab..a1d8f52 100644
--- a/rackunit-lib/rackunit/private/test-case.rkt
+++ b/rackunit-lib/rackunit/private/test-case.rkt
@@ -70,7 +70,7 @@
 
 (define (ensure-string name src-stx)
   (contract string? name
-            (syntax-source name)
+            (syntax-source src-stx)
             (syntax-source-module #'test-case #t)))
 
 (define-syntax before