| yyyymmdd hhmmss xxx |
yyyymmdd := Date today printFormat: #(3 2 1 0 1 1 2).
hhmmss := Time now print24 copyWithout: $:.
xxx := Time millisecondClockValue printString last: 3.
^yyyymmdd, hhmmss, '.', xxx