Block 4055
( common:msg.4th — Hermes participant interface )
( Load into every messaging VM at birth: )
( S" common:msg.4th" EXEC )
: HERMES-ACK ( -- )
  LOG-DEBUG" msg: ACK sent"
  S" MSG-ACK-LAST" S" Hermes" VM-EXEC ;
: HERMES-NACK ( -- )
  LOG-DEBUG" msg: NACK sent"
  S" MSG-NACK-LAST" S" Hermes" VM-EXEC ;