--- a/TestCaseOutcome.st	Sun Mar 23 22:08:48 2014 +0100
+++ b/TestCaseOutcome.st	Thu Apr 17 00:06:04 2014 +0200
@@ -86,7 +86,7 @@
         "/ assume it is still running...
         endTime := Timestamp now
     ].
-    ^ (endTime deltaFrom:startTime) getMilliseconds
+    ^ (endTime millisecondDeltaFrom:startTime)
 
     "Modified (format): / 18-08-2011 / 21:02:28 / cg"
 !
@@ -178,6 +178,19 @@
     "Created: / 20-08-2011 / 14:23:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!TestCaseOutcome methodsFor:'printing & storing'!
+
+printOn:aStream
+    "append a printed representation if the receiver to the argument, aStream"
+
+    super printOn:aStream.
+    aStream nextPut:$(.
+    testCase printOn: aStream.
+    aStream nextPut:$).
+
+    "Modified: / 17-07-2013 / 17:59:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !TestCaseOutcome methodsFor:'remembering'!
 
 remember
@@ -190,5 +203,6 @@
 !TestCaseOutcome class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.4 2012-11-05 21:03:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCaseOutcome.st,v 1.6 2014-04-16 22:06:04 cg Exp $'
 ! !
+