--- a/SourceCodeManagerUtilities.st	Mon Jan 28 10:54:24 2002 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Feb 04 10:39:04 2002 +0100
@@ -1705,7 +1705,7 @@
         requestText:(resources string:'Enter log message for: %1' with:aString)
         lines:10
         columns:70
-        initialAnswer:(initialAnswer ? LastSourceLogMessage).
+        initialAnswer:(initialAnswer ? LastSourceLogMessage ? '').
 
     logMsg notNil ifTrue:[
         LastSourceLogMessage := logMsg
@@ -2037,5 +2037,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.76 2002-01-23 22:42:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.77 2002-02-04 09:39:04 martin Exp $'
 ! !