--- a/AbstractFileBrowser.st	Thu Feb 16 19:20:46 2017 +0100
+++ b/AbstractFileBrowser.st	Fri Feb 17 08:45:36 2017 +0100
@@ -3427,7 +3427,9 @@
 
     directories := self currentSelectedDirectories.
     bookmarks := self class directoryBookmarks.
-    ^ (bookmarks size > 0 and:[directories notEmpty])
+    ^ (bookmarks notEmptyOrNil and:[directories notEmpty])
+
+    "Modified: / 17-02-2017 / 08:25:22 / cg"
 !
 
 removeBookmark
@@ -5761,7 +5763,7 @@
     executionBlock := 
         [:stream |
             log notNil ifTrue:[
-                sel size > 0 ifTrue:[
+                sel notEmptyOrNil ifTrue:[
                     sel do:[:fn |
                         |nameArg|
 
@@ -5790,7 +5792,7 @@
     nameString := 'Command> cvs add and commit'.
     self makeExecutionResultProcessFor:executionBlock withName:nameString.
 
-    "Modified (format): / 15-01-2012 / 16:02:07 / cg"
+    "Modified: / 17-02-2017 / 08:25:16 / cg"
 !
 
 cvsAddBinaryAndCommit
@@ -8692,9 +8694,11 @@
 
 hasASN1AndSelection
     ^ [ self hasSelection value 
-        and:[self currentSelectedFiles size > 0
+        and:[self currentSelectedFiles notEmptyOrNil
         and:[OSI::ASN1Parser notNil 
         and:[OSI::ASN1Parser isLoaded]]]]
+
+    "Modified: / 17-02-2017 / 08:25:09 / cg"
 !
 
 hasCBrowser