--- gforth/unix/socket.fs	2008/10/08 17:30:34	1.28
+++ gforth/unix/socket.fs	2009/12/09 09:43:33	1.29
@@ -122,7 +122,7 @@ $802 Constant O_NONBLOCK|O_RDWR
 
 ' open-socket Alias open-service
 
-: ms@  utime 1000 um/mod nip ; ( -- u ) 
+: ms@  utime 1000 ud/mod drop nip ; ( -- u ) 
 
 : $put ( c-addr1 u1 c-addr2 -- ) swap cmove ;