--- a/AbstractFileBrowser.st	Thu Mar 13 16:15:10 2003 +0100
+++ b/AbstractFileBrowser.st	Fri Mar 14 15:29:50 2003 +0100
@@ -3707,22 +3707,21 @@
         columns:70
         initialAnswer:nil.
 
-    log notNil ifTrue:[
-        sel := self currentFileNameHolder value.
-        sel isEmpty ifTrue:[ ^ self ].
-        executionBlock := [ : stream |
-            log notNil ifTrue:[
-                sel size > 0 ifTrue:[
-                    sel do:[:fn |
-                        | dir block |
-                        dir := fn directory.
-                        cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
-                        block := self getExecutionBlockForCommand:cmd inDirectory:dir.
-                        block value:stream.
-                    ]
-                ] 
-            ]
-        ].
+    log isNil ifTrue:[^ self].
+    sel := self currentFileNameHolder value.
+    sel isEmpty ifTrue:[ ^ self ].
+    executionBlock := [ : stream |
+        log notNil ifTrue:[
+            sel size > 0 ifTrue:[
+                sel do:[:fn |
+                    | dir block |
+                    dir := fn directory.
+                    cmd := ('cvs commit -m ''' , log , ''' ' , fn baseName).
+                    block := self getExecutionBlockForCommand:cmd inDirectory:dir.
+                    block value:stream.
+                ]
+            ] 
+        ]
     ].
     nameString := 'Command> cvs commit'.
     self makeExecutionResultProcessFor:executionBlock withName:nameString.
@@ -5872,5 +5871,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.107 2003-03-09 16:54:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.108 2003-03-14 14:29:50 penk Exp $'
 ! !