From c7f2b891583c673206e7ddf68c47bc2c0986a975 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 7 May 2005 12:57:35 +0000 Subject: [PATCH] . original commit: 6c2f0d499957025d4c7772ef4201cfb4026fd190 --- collects/net/pop3-unit.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/net/pop3-unit.ss b/collects/net/pop3-unit.ss index 961d063..79a73aa 100644 --- a/collects/net/pop3-unit.ss +++ b/collects/net/pop3-unit.ss @@ -39,7 +39,8 @@ (lambda (constructor format-string . args) (lambda exn-args (raise (apply constructor - (apply format format-string args) + (string->immutable-string + (apply format format-string args)) (current-continuation-marks) exn-args)))))