System loadedApplications select: [:each | each name = #Chronos].
  self subApplications do: [:sa |
      sa defined do: [:each | each comment notEmpty
          ifTrue: [Transcript show: each name;cr.
                   Transcript show:each **comment**;cr.
                   Transcript show: '++++++++++++';cr	]]]
                   

Print Numbers

| stream number |
number := self testResult timeOfTestsIn: aTest.
stream := WriteStream on: (String new: 20).
Locale current lcNumeric printNumber: number on: stream.
^stream contents