diff --git a/racket/collects/racket/match/runtime.rkt b/racket/collects/racket/match/runtime.rkt
index f059f96f34..35cb898473 100644
--- a/racket/collects/racket/match/runtime.rkt
+++ b/racket/collects/racket/match/runtime.rkt
@@ -22,10 +22,13 @@
 
 
 (define (match:error val srclocs form-name)
-  (raise (make-exn:misc:match (format "~a: no matching clause for ~e" form-name val)
-                              (current-continuation-marks)
-                              val
-                              srclocs)))
+  (raise (make-exn:misc:match
+          (format "~a: no matching clause for ~e\n  location: ~a"
+                  form-name val
+                  (srcloc->string (car srclocs)))
+          (current-continuation-marks)
+          val
+          srclocs)))
 
 (define-syntax-parameter fail
   (lambda (stx)