--- a/MCWorkingAncestry.st	Tue Aug 23 15:47:26 2011 +0200
+++ b/MCWorkingAncestry.st	Tue Aug 23 15:48:20 2011 +0200
@@ -27,15 +27,17 @@
 !
 
 infoWithName: nameString message: messageString
-	^ MCVersionInfo
-		name: nameString
-		id: UUID new
-		message: messageString
-		date: Date today
-		time: Time now
-		author: Utilities authorInitials
-		ancestors: ancestors asArray
-		stepChildren: self stepChildren asArray
+        ^ MCVersionInfo
+                name: nameString
+                id: UUID new
+                message: messageString
+                date: Date today
+                time: Time now
+                author: ((OperatingSystem getFullUserNameFromID: OperatingSystem getUserID) reject:[:c|c isSeparator])
+                ancestors: ancestors asArray
+                stepChildren: self stepChildren asArray
+
+    "Modified: / 23-08-2011 / 07:43:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 name
@@ -49,5 +51,5 @@
 !MCWorkingAncestry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWorkingAncestry.st,v 1.1 2006-11-22 12:45:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWorkingAncestry.st,v 1.2 2011-08-23 13:48:20 vrany Exp $'
 ! !