--- a/test/MCTestCase.st	Wed Mar 07 17:23:18 2018 +0100
+++ b/test/MCTestCase.st	Wed Mar 07 17:23:24 2018 +0100
@@ -1,5 +1,9 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/monticello/test' }"
 
+"{ NameSpace: Smalltalk }"
+
 TestCase subclass:#MCTestCase
 	instanceVariableNames:''
 	classVariableNames:''
@@ -161,25 +165,25 @@
 !
 
 mockVersionInfo: tag 
-	^ MCVersionInfo
-		name: self mockVersionName, '-', tag asString
-		id: UUID new
-		message: self mockMessageString, '-', tag asString
-		date: Date today
-		time: Time now
-		author: Utilities authorInitials 
-		ancestors: #()
+        ^ MCVersionInfo
+                name: self mockVersionName, '-', tag asString
+                id: UUID new
+                message: self mockMessageString, '-', tag asString
+                date: Date today
+                time: Time now
+                author: Author fullName "Utilities authorInitials" 
+                ancestors: #()
 !
 
 mockVersionInfoWithAncestor: aVersionInfo 
-	^ MCVersionInfo
-		name: aVersionInfo name, '-child'
-		id: UUID new
-		message: self mockMessageString
-		date: Date today
-		time: Time now
-		author: Utilities authorInitials 
-		ancestors: {aVersionInfo}
+        ^ MCVersionInfo
+                name: aVersionInfo name, '-child'
+                id: UUID new
+                message: self mockMessageString
+                date: Date today
+                time: Time now
+                author: Author fullName "Utilities authorInitials" 
+                ancestors: {aVersionInfo}
 !
 
 mockVersionName
@@ -218,10 +222,10 @@
 !MCTestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCTestCase.st,v 1.3 2013-05-29 00:01:28 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCTestCase.st,v 1.3 2013-05-29 00:01:28 vrany Exp $'
+    ^ '$Header$'
 ! !