--- a/ChangesBrowser.st	Fri Mar 02 15:57:57 2012 +0100
+++ b/ChangesBrowser.st	Fri Mar 02 16:10:38 2012 +0100
@@ -1139,6 +1139,9 @@
     "some activityNotification to be forwarded to the user;
      show it in the windows title area here."
 
+    someMessage isNil ifTrue:[
+        self newLabel:''
+    ].
     self label:someMessage
 
     "Created: 24.2.1996 / 19:35:42 / cg"
@@ -4550,14 +4553,14 @@
         ] ifFalse:[
             logTitle := '%1 classes' bindWith:classes size.
         ].
-        checkinInfo := SourceCodeManagerUtilities
+        checkinInfo := SourceCodeManagerUtilities default
                         getCheckinInfoFor:logTitle
                         initialAnswer:nil.
         checkinInfo isNil ifTrue:[^ self ].
 
         changeListView setSelection:nil.
         classes do:[:eachClass |
-            (SourceCodeManagerUtilities checkinClass:eachClass withInfo:checkinInfo)
+            (SourceCodeManagerUtilities default checkinClass:eachClass withInfo:checkinInfo)
                 ifTrue:[
                     self silentDeleteChangesForClassAndPrivateClasses:eachClass name
                            from:1 to:(self numberOfChanges).
@@ -6357,9 +6360,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.420 2012-02-15 14:14:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.421 2012-03-02 15:10:38 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.420 2012-02-15 14:14:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.421 2012-03-02 15:10:38 stefan Exp $'
 ! !