--- a/SourceCodeManagerUtilities.st	Mon Jan 10 15:37:12 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Jan 10 15:45:21 2000 +0100
@@ -29,17 +29,21 @@
     "get a log message for checking in a class.
      Return the message or nil if aborted."
 
-    |resources|
+    |resources logMsg|
 
     resources := ResourcePack for:self.
-    ^ Dialog
+    logMsg := Dialog
         requestText:(resources string:'enter log message for: %1' with:aString)
         lines:10
         columns:70
-        initialAnswer:LastSourceLogMessage
+        initialAnswer:LastSourceLogMessage.
+    logMsg notNil ifTrue:[
+        LastSourceLogMessage := logMsg
+    ].
+    ^ logMsg
 
     "
-     self getLogMessageFor:'hello'
+     SourceCodeManagerUtilities getLogMessageFor:'hello'
     "
 
 
@@ -48,5 +52,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.1 2000-01-10 14:36:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.2 2000-01-10 14:45:21 cg Exp $'
 ! !