--- a/ChangeSet.st	Thu Mar 29 21:39:17 2012 +0100
+++ b/ChangeSet.st	Sat Mar 31 01:14:49 2012 +0100
@@ -649,7 +649,11 @@
                                 (s := tree evaluate) isString ifTrue:[
                                     (s startsWith:'---- timestamp ') ifTrue:[
                                         lastTimeStamp := s.
-                                    ]
+                                    ] ifFalse:[
+                                        (s startsWith:'---- ') ifTrue:[
+                                            reader processInfo: s.
+                                        ].
+                                    ].
                                 ] ifFalse:[
                                     self error:'unexpected change-chunk' mayProceed:true
                                 ]
@@ -686,7 +690,7 @@
 
     "Created: / 16-02-1998 / 12:19:34 / cg"
     "Modified: / 14-12-1999 / 15:23:16 / cg"
-    "Modified: / 11-02-2012 / 20:09:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-03-2012 / 16:45:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 skipEncodingChunkOn:stream
@@ -2552,6 +2556,20 @@
     "Created: / 24-01-2012 / 17:33:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+processInfo: string
+    "Processes 'info record' - an info record consist of a chunk containing
+     single string literal starting with ----, such as:
+
+    '---- snapshot st.img 30-03-2012 11:40:24 ----'
+    '---- checkin SVN::ConfigurationApp into stx:libsvn (1.12) 12-03-2012 10:51:15 ----'
+    '---- rake update 30-03-2012 11:40:24 ----'
+
+    timestamp info records are (for historical reasons) processed in ChangeSet
+    "
+
+    "Created: / 30-03-2012 / 16:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 process_categoriesFor_
     "'categoriesFor:' chunk (Dolphin)"
 
@@ -3763,5 +3781,5 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st 1903 2012-03-21 14:04:27Z vranyj1 $'
+    ^ '$Id: ChangeSet.st 1909 2012-03-31 00:14:49Z vranyj1 $'
 ! !