diff --git a/hbs2-core/lib/HBS2/Net/Proto/Service.hs b/hbs2-core/lib/HBS2/Net/Proto/Service.hs
index f73627fd..6f259690 100644
--- a/hbs2-core/lib/HBS2/Net/Proto/Service.hs
+++ b/hbs2-core/lib/HBS2/Net/Proto/Service.hs
@@ -131,13 +131,11 @@ makeRequestR :: forall api method e m . ( KnownNat (FromJust (FindMethodIndex 0
                                        )
             => Input method -> m (ServiceProto api e)
 makeRequestR input = do
-
-  t <- getTimeCoarse <&> round @_ @Word64  . realToFrac
-
+  n <- liftIO $ randomIO @Word64
   rnum  <- atomically do
               n <- readTVar rnumnum
               modifyTVar' rnumnum succ
-              pure (fromIntegral $ hash (n+t))
+              pure (fromIntegral n)
 
   pure $ ServiceRequest rnum (serialise (fromIntegral idx :: Int, serialise input))
   where