--- a/AbstractSourceCodeManager.st	Thu Dec 22 09:59:53 2011 +0100
+++ b/AbstractSourceCodeManager.st	Thu Dec 22 10:00:23 2011 +0100
@@ -290,12 +290,13 @@
 !
 
 repositoryNameForPackage:packageId 
-    "Return the repository ULR fo given package. Used for 
-     testing/debugging source code management configuration"
+    "Return the repository ULR for the given package. 
+     Used for testing/debugging source code management configuration"
     
     ^ self subclassResponsibility
 
     "Created: / 10-10-2011 / 19:44:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 21-12-2011 / 23:03:00 / cg"
 !
 
 useWorkTree
@@ -2194,7 +2195,7 @@
 
     doubleColon := source indexOf: $: startingAt: startQuote + 2.
     "/There may be no double colon at all, if the version method
-    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.277 2011-12-21 19:43:06 cg Exp $'
+    "/is fresh, like '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.278 2011-12-22 09:00:23 cg Exp $'
     (doubleColon == 0 or:[doubleColon > endQuote]) ifTrue:[
         doubleColon := endQuote - 1.
     ].
@@ -3185,21 +3186,26 @@
         |logMsg|
 
         aStream cr.
-        aStream nextPutAll:'  revision '; nextPutAll:(entry at:#revision); tab.
-        aStream nextPutAll:' date: '; nextPutAll:(entry at:#date); tab.
-        aStream nextPutAll:' author: '; nextPutAll:(entry at:#author); tab.
-        aStream nextPutAll:' lines: '; nextPutAll:(entry at:#numberOfChangedLines); cr.
-
-        logMsg := entry at:#logMessage.
+        aStream nextPutAll:'  revision '; 
+            show:(entry at:#revision); tab.
+        aStream nextPutAll:' date: '; 
+            show:((entry at:#date ifAbsent:nil) ? '?'); space;
+            show:((entry at:#time ifAbsent:nil) ? '?'); tab.
+        aStream nextPutAll:' author: '; 
+            show:(entry at:#author ifAbsent:nil) ? '?'; tab.
+        aStream nextPutAll:' lines: '; 
+            show:(entry at:#numberOfChangedLines ifAbsent:nil) ? '?'; cr.
+
+        logMsg := entry at:#logMessage ifAbsent:''.
         (logMsg isBlank or:[logMsg withoutSeparators = '.']) ifTrue:[
             logMsg := '*** empty log message ***'
         ].
         aStream tab; nextPutLine:logMsg.
     ].
 
-    "Created: 16.11.1995 / 13:25:30 / cg"
-    "Modified: 8.11.1996 / 23:52:48 / cg"
-    "Modified: 27.11.1996 / 18:26:30 / stefan"
+    "Created: / 16-11-1995 / 13:25:30 / cg"
+    "Modified: / 27-11-1996 / 18:26:30 / stefan"
+    "Modified: / 21-12-2011 / 23:33:53 / cg"
 !
 
 writeRevisionLogOf:aClass fromRevision:rev1 toRevision:rev2 finishAfter:maxCount to:aStream
@@ -3418,11 +3424,11 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.277 2011-12-21 19:43:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.278 2011-12-22 09:00:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.277 2011-12-21 19:43:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.278 2011-12-22 09:00:23 cg Exp $'
 ! !
 
 AbstractSourceCodeManager initialize!