diff --git a/Testing/tcpport-client.m b/Testing/tcpport-client.m
index 9c3a4b98b..85941908b 100644
--- a/Testing/tcpport-client.m
+++ b/Testing/tcpport-client.m
@@ -36,7 +36,8 @@ int main (int argc, char *argv[])
 		initWithObjectFunction: handle_incoming_packet]
 	       autorelease]];
 
-  [in_port addToRunLoop: [RunLoop currentInstance] forMode: nil];
+  [[RunLoop currentInstance] addPort: in_port
+			     forMode: RunLoopDefaultMode];
   
   for (i = 0; i < 10; i++)
     {
diff --git a/Testing/tcpport-server.m b/Testing/tcpport-server.m
index a02fdf8d5..eb1f69a72 100644
--- a/Testing/tcpport-server.m
+++ b/Testing/tcpport-server.m
@@ -76,8 +76,9 @@ int main (int argc, char *argv[])
 	  [[[ObjectFunctionInvocation alloc]
 	     initWithObjectFunction: handle_incoming_packet]
 	    autorelease]];
-  [port addToRunLoop: [RunLoop currentInstance] forMode: nil];
-  [[RunLoop currentInstance] run];
+  [[RunLoop currentInstance] addPort: port
+			     forMode: RunLoopDefaultMode];
+  [RunLoop run];
 #else
   {
     id packet;