--- a/WorkspaceApplication.st	Sun Apr 03 21:32:56 2016 +0200
+++ b/WorkspaceApplication.st	Sun Apr 03 21:36:00 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -2335,15 +2337,12 @@
 
 canAddBookmark
 
-    | ws file |
+    | ws |
 
     ws := self selectedWorkspace scrolledView.
-    ^ws isTextView ifTrue:[
-        file := ws defaultFileNameForFileDialog.
-        file notNil.
-    ] ifFalse:[
-        true
-    ]
+    ws isTextView ifFalse:[^ true].
+
+    ^ ws defaultFileNameForFileDialog notNil.
 
     "Created: / 20-06-2011 / 22:43:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !