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))))))