--- a/netserver/HWProto.hs	Fri Oct 24 17:53:14 2008 +0000
+++ b/netserver/HWProto.hs	Sat Oct 25 09:54:53 2008 +0000
@@ -120,7 +120,7 @@
 					(show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")",
 					show $ gameinprogress room
 					]
-			sameProtoRooms = filter (\r -> roomProto r == protocol client) rooms
+			sameProtoRooms = filter (\r -> (roomProto r == protocol client) && (not $ isRestrictedJoins r)) rooms
 
 handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] =
 	if (not $ isDedicated globalOptions) && (not $ null rooms) then