From 9317ed46dc75aaeceb42dadfa3d147460fd1ab3c Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 21 Jun 2004 22:01:15 +0000
Subject: [PATCH] .

original commit: a6413ec7a9c43f748e343f5cae96e21270861803
---
 collects/mzlib/match.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index c9f0de6..80955fb 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -145,13 +145,13 @@
       ((val)
        (raise
         (make-exn:misc:match
-         (format "match: no matching clause for ~e" val)
+         (string->immutable-string (format "match: no matching clause for ~e" val))
          (current-continuation-marks)
          val)))
       ((val expr)
        (raise
         (make-exn:misc:match
-         (format "match: no matching clause for ~e: ~s" val expr)
+         (string->immutable-string (format "match: no matching clause for ~e: ~s" val expr))
          (current-continuation-marks)
          val)))))