--- a/InfoChange.st	Tue Apr 02 21:19:15 2013 +0200
+++ b/InfoChange.st	Tue Apr 02 21:20:25 2013 +0200
@@ -86,24 +86,38 @@
 
 printOn:aStream
 
-    type == #snapshot ifTrue:[
-        aStream nextPutAll:'Snapshot'; space; nextPutAll: data.
+    type = 'snapshot' ifTrue:[
+        aStream nextPutAll:'---- snapshot '; space; nextPutAll: data.
+        timeOfChangeIfKnown notNil ifTrue:[ timeOfChangeIfKnown printOn: aStream ].
+        aStream nextPutAll:' ---- '.
         ^self
     ].
-    type == #start ifTrue:[
+    type = 'start' ifTrue:[
         aStream nextPutAll:'System start'.
         ^self
     ].
-    type == #rake ifTrue:[
+    type = 'rake' ifTrue:[
         aStream nextPutAll:'rake'; space; nextPutAll: data.
         ^self
     ].
 
+    "/ default
+    aStream nextPutAll:'---- '; nextPutAll:type; space; nextPutAll: data.
+
     "Created: / 18-05-2012 / 17:02:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !InfoChange class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/InfoChange.st,v 1.2 2013-04-02 19:20:25 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/InfoChange.st,v 1.2 2013-04-02 19:20:25 cg Exp $'
+!
+
 version_SVN
     ^ '§Id:: InfoChange.st 1942 2012-07-27 14:53:23Z vranyj1                                                                        §'
 ! !
+