diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 5bc245d989..4cee6fb3a4 100644
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -459,6 +459,9 @@ M: invalid-local-address summary
 : protocol-port ( protocol -- port )
     [ f getservbyname [ port>> htons ] [ f ] if* ] [ f ] if* ;
 
+: port-protocol ( port -- protocol )
+    [ htons f getservbyport [ name>> ] [ f ] if* ] [ f ] if* ;
+
 : <any-port-local-inet4> ( -- inet4 ) f 0 <inet4> ;
 : <any-port-local-inet6> ( -- inet6 ) f 0 <inet6> ;