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