From 6b8208091706f274c7c7698bd935689aff3cbb30 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 21 Apr 2004 19:20:10 +0000
Subject: [PATCH] .

original commit: 71b026d8e69ce6b44e0d9150c90f095ea6f2641e
---
 collects/net/tcp-redirect.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/net/tcp-redirect.ss b/collects/net/tcp-redirect.ss
index 7af9cbde2b..6b93f3eba1 100644
--- a/collects/net/tcp-redirect.ss
+++ b/collects/net/tcp-redirect.ss
@@ -75,7 +75,7 @@
 		   port-table
 		   port
 		   (lambda ()
-		     (raise (make-exn:i/o:tcp
+		     (raise (make-exn:fail:network
 			     (format "tcp-connect: connection to ~a, port ~a failed (nobody is listening)"
 				     hostname-string port)
 			     (current-continuation-marks))))))