p@(Process traits) forkAndDo: b
[| ret |
  (ret := lobby cloneSystem)
    first ifTrue: [p pipes addLast: ret second. ret second]
           ifFalse: [[p pipes clear. p pipes addLast: ret second. b applyWith: ret second] ensure: [lobby quit]]
].