diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 80c7eefb0c..e322c7018e 100644
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -287,7 +287,7 @@ TUPLE: raw-port < port addr ;
 
 HOOK: (raw) io-backend ( addr -- raw )
 
-HOOK: (receive) io-backend ( n buf datagram -- size addrspec )
+HOOK: (receive-unsafe) io-backend ( n buf datagram -- size addrspec )
 
 ERROR: invalid-port object ;
 
@@ -371,7 +371,7 @@ SYMBOL: remote-address
 
 : receive-unsafe ( n buf datagram -- count addrspec )
     check-receive
-    [ (receive) ] [ addr>> ] bi parse-sockaddr ; inline
+    [ (receive-unsafe) ] [ addr>> ] bi parse-sockaddr ; inline
 
 CONSTANT: datagram-size 65536
 
diff --git a/basis/io/sockets/unix/unix.factor b/basis/io/sockets/unix/unix.factor
index fc59b8ce51..8414284b60 100644
--- a/basis/io/sockets/unix/unix.factor
+++ b/basis/io/sockets/unix/unix.factor
@@ -140,7 +140,7 @@ M: unix (raw)
         2drop [ +input+ wait-for-port ] [ (receive-loop) ] bi
     ] if ; inline recursive
 
-M: unix (receive) ( n buf datagram -- count sockaddr )
+M: unix (receive-unsafe) ( n buf datagram -- count sockaddr )
     (receive-loop) ;
 
 :: do-send ( packet sockaddr len socket datagram -- )
diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index ca6333fe02..7773b369a6 100755
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -258,7 +258,7 @@ TUPLE: WSARecvFrom-args port
     [ lpFromLen>> int deref ]
     tri memcpy ; inline
 
-M: windows (receive) ( n buf datagram -- count addrspec )
+M: windows (receive-unsafe) ( n buf datagram -- count addrspec )
     [
         <WSARecvFrom-args>
         [ call-WSARecvFrom ]