--- a/MCVersionInfo.st	Mon Sep 05 08:18:29 2011 +0200
+++ b/MCVersionInfo.st	Mon Sep 05 09:21:16 2011 +0200
@@ -57,21 +57,23 @@
 !
 
 summaryHeader
-	^ String streamContents:
-		[:s |
-		s
-			nextPutAll: 'Name: '; nextPutAll: self name; cr.
-		date ifNotNil:
-			[s
-				nextPutAll: 'Author: '; nextPutAll: author; cr;
-				nextPutAll: 'Time: '; nextPutAll:  date asString, ', ', time asString; cr].
-		id ifNotNil:
-			[s nextPutAll: 'UUID: '; nextPutAll: id asString; cr].
-		s
-			nextPutAll: 'Ancestors: '; nextPutAll: self ancestorString.
-		self stepChildren isEmpty ifFalse:
-			[s cr; nextPutAll: 'Backported From: '; nextPutAll: self stepChildrenString].
-		]
+        ^ String streamContents:
+                [:s |
+                s
+                        nextPutAll: 'Name: '; nextPutAll: self name; cr.
+                date ifNotNil:
+                        [s
+                                nextPutAll: 'Author: '; nextPutAll: author; cr;
+                                nextPutAll: 'Time: '; nextPutAll:  date asString, ', ', time asString; cr].
+                id ifNotNil:
+                        [s nextPutAll: 'UUID: '; nextPutAll: id printString; cr].
+                s
+                        nextPutAll: 'Ancestors: '; nextPutAll: self ancestorString.
+                self stepChildren isEmpty ifFalse:
+                        [s cr; nextPutAll: 'Backported From: '; nextPutAll: self stepChildrenString].
+                ]
+
+    "Modified: / 05-09-2011 / 09:07:31 / cg"
 !
 
 timeStamp
@@ -155,5 +157,5 @@
 !MCVersionInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfo.st,v 1.1 2006-11-22 12:45:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVersionInfo.st,v 1.2 2011-09-05 07:21:16 cg Exp $'
 ! !