--- a/ChangesBrowser.st	Thu Aug 24 23:12:49 2006 +0200
+++ b/ChangesBrowser.st	Thu Aug 24 23:13:07 2006 +0200
@@ -4162,10 +4162,11 @@
         checkinInfo := SourceCodeManagerUtilities
                         getCheckinInfoFor:logTitle
                         initialAnswer:nil.
+        checkinInfo isNil ifTrue:[^ self ].
 
         changeListView setSelection:nil.
         classes do:[:eachClass |
-            (SourceCodeManagerUtilities checkinClass:eachClass withLog:checkinInfo)
+            (SourceCodeManagerUtilities checkinClass:eachClass withInfo:checkinInfo)
                 ifTrue:[
                     self silentDeleteChangesForClassAndPrivateClasses:eachClass name
                            from:1 to:(self numberOfChanges).
@@ -5835,5 +5836,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.350 2006-08-05 16:04:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.351 2006-08-24 21:13:07 cg Exp $'
 ! !