diff --git a/Examples/TCPIP/chat/chatServer.icl b/Examples/TCPIP/chat/chatServer.icl
index 78ec0bfa41b984f1d334b09079da37ab4d274ba6..543564779002ca5c4f1f666fd30b02d2d05c1eb3 100644
--- a/Examples/TCPIP/chat/chatServer.icl
+++ b/Examples/TCPIP/chat/chatServer.icl
@@ -34,7 +34,7 @@ loop listener channels console world
 				= unzip3 channels
 	  glue		= (TCP_Listeners [listener]) :^: (TCP_RChannels rChans)
 	  ([(who,what):_],glue, _, world)
-				= selectChannel_MT Nothing glue Void world
+				= selectChannel_MT ?None glue Void world
 	  ((TCP_Listeners [listener:_]) :^: (TCP_RChannels rChans))
 	  			= glue
 	  channels	= zip3 sChans rChans nicknames
@@ -43,7 +43,7 @@ loop listener channels console world
 		
 	| who==0
 		# (tReport, mbNewMember, listener, world)
-							= receive_MT (Just 0) listener world
+							= receive_MT (?Just 0) listener world
 		| tReport<>TR_Success            // the potential new member changed it's mind
 			= loop listener channels console world
 		# (_,{sChannel,rChannel})	= fromJust mbNewMember
diff --git a/Examples/TCPIP/downloadHTTP/downloadHTTP.icl b/Examples/TCPIP/downloadHTTP/downloadHTTP.icl
index 2bc838e4bdf93d5760e64897c21c7471a67459f0..b360ae18de89f92b6e5e977f85dde80efe05ba26 100644
--- a/Examples/TCPIP/downloadHTTP/downloadHTTP.icl
+++ b/Examples/TCPIP/downloadHTTP/downloadHTTP.icl
@@ -30,7 +30,7 @@ Start world
   // connect
 
 	#	(tReport, mbDuplexChan, world)
-									= connectTCP_MT (Just (15*ticksPerSecond))
+									= connectTCP_MT (?Just (15*ticksPerSecond))
 									                (fromJust mbIPAddr, port) world
 	|	tReport<>TR_Success
 		#!	console 				= fwrites (   server+++" does not respond on port "
@@ -46,7 +46,7 @@ Start world
 
   // receive answer
 
-		(tReport, mbBs, rc, world)	= receive_MT (Just (20*ticksPerSecond)) rc world
+		(tReport, mbBs, rc, world)	= receive_MT (?Just (20*ticksPerSecond)) rc world
 		console	= case tReport of
 					TR_Success		-> fwrites (toString (fromJust mbBs)) console
 					_				-> fwrites (server+++" does not send anything (timeout expired)")
diff --git a/Examples/TCPIP/echo/echoClient.icl b/Examples/TCPIP/echo/echoClient.icl
index 7977fa063ef0a61519e468904f5df6c39a587716..775c0383eb4f4a5e653d1dde1212418578fbdac0 100644
--- a/Examples/TCPIP/echo/echoClient.icl
+++ b/Examples/TCPIP/echo/echoClient.icl
@@ -29,7 +29,7 @@ Start world
   // connect
 
 	#	(tReport, mbDuplexChan, world)
-									= connectTCP_MT (Just (15*ticksPerSecond))
+									= connectTCP_MT (?Just (15*ticksPerSecond))
 												    (fromJust mbIPAddr, echoPort) world
 	|	tReport<>TR_Success
 		#!	console 				= fwrites (   server+++" does not respond on port "