Message justSerialized := method(stream,
    stream write(name)
    if(arguments size > 0,
        stream write("(")
        stream write(arguments map(serialized) join(", "))
        stream write(")")
    )
    if (next,
        if (next isEndOfLine not, stream write(" "))
        stream write(next serialized)
    )
)