--- a/SourceCodeManagerUtilities.st	Fri Feb 16 16:19:30 2001 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Apr 02 17:54:04 2001 +0200
@@ -14,11 +14,11 @@
 "{ Package: 'stx:libbasic3' }"
 
 Object subclass:#SourceCodeManagerUtilities
-        instanceVariableNames:''
-        classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
-                YesToAllNotification'
-        poolDictionaries:''
-        category:'System-SourceCodeManagement'
+	instanceVariableNames:''
+	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
+		YesToAllNotification'
+	poolDictionaries:''
+	category:'System-SourceCodeManagement'
 !
 
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
@@ -447,7 +447,7 @@
     mgr := (aClass sourceCodeManager).
     mgr isNil ifTrue:[
         self halt:'oops'.
-        (self confirm:'Class does not seem to privide a valid sourceCodeManager.\\Assume CVS ?' withCRs) ifFalse:[
+        (self confirm:'Class does not seem to provide a valid sourceCodeManager.\\Assume CVS ?' withCRs) ifFalse:[
             ^ false
         ].
         mgr := CVSSourceCodeManager.
@@ -455,7 +455,7 @@
 
     aLogMessageOrNil isNil ifTrue:[
         logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name allBold.
-        logMessage isNil ifTrue:[^ self].
+        logMessage isNil ifTrue:[^ false].
     ] ifFalse:[
         logMessage := aLogMessageOrNil
     ].
@@ -1817,5 +1817,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.52 2001-02-07 17:18:52 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.53 2001-04-02 15:54:04 stefan Exp $'
 ! !