From bdc4cff0f45243f529ddb3ccc760fea19bd2105e Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 8 Mar 2012 14:52:56 -0500
Subject: [PATCH] Don't trap break exns in ->string/safe.

---
 repl-server.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/repl-server.rkt b/repl-server.rkt
index 75842c3..2d3c2b9 100644
--- a/repl-server.rkt
+++ b/repl-server.rkt
@@ -29,7 +29,7 @@
 (define (->string/safe bs)
   (cond
    ((string? bs) bs)
-   ((bytes? bs) (with-handlers ((exn? (lambda (e) (bytes->string/latin-1 bs))))
+   ((bytes? bs) (with-handlers ((exn:fail? (lambda (e) (bytes->string/latin-1 bs))))
 		  (bytes->string/utf-8 bs)))
    (else (call-with-output-string (lambda (p) (write bs p))))))