@@ -321,6 +321,8 @@ startServiceProcesses node = do
321 -- process which uses 'send' or other primitives which are traced.
321 -- process which uses 'send' or other primitives which are traced.
322 register "trace.logger" logger
322 register "trace.logger" logger
324+ fork = forkProcess node
324 loop = do
326 loop = do
325 receiveWait
327 receiveWait
326 [ match $ \((time, pid, string) ::(String, ProcessId, String)) -> do
328 [ match $ \((time, pid, string) ::(String, ProcessId, String)) -> do