--- a/BookmarkListEditor.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/BookmarkListEditor.st	Sun Jan 29 15:33:37 2012 +0000
@@ -412,16 +412,17 @@
 !BookmarkListEditor methodsFor:'hooks'!
 
 commonPostOpen
-
     | root |
 
-    self bookmarkList ifNil:
-        [self bookmarkList: BookmarkList forSystemBrowser].
+    self bookmarkList isNil ifTrue:[
+        self bookmarkList: BookmarkList forSystemBrowser
+    ].
     root := self bookmarkList root.
     root isExpanded ifFalse:[root expand].
 
     "Created: / 02-06-2011 / 10:41:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-06-2011 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 18-11-2011 / 14:32:36 / cg"
 ! !
 
 !BookmarkListEditor methodsFor:'menu actions'!
@@ -467,16 +468,17 @@
 !
 
 menuNew: className
+    | folder new |
 
-    | folder new |
     folder := self selection.
-    folder ifNil:[folder := self bookmarkList root].
+    folder isNil ifTrue:[folder := self bookmarkList root].
     folder isFolderBookmark ifFalse: [folder := folder parent].
     new := (Smalltalk at: className) new.
     folder add: new.
 
     "Created: / 02-06-2011 / 11:49:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 02-06-2011 / 13:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:32:49 / cg"
 !
 
 menuNewFolder
@@ -494,14 +496,15 @@
 !
 
 menuRename
+    | sel name |
 
-    | sel name |
     sel := self selection.
     name := Dialog request: 'Enter new name' initialAnswer: sel label asString.
-    name ifNil:[^self].
+    name isNil ifTrue:[^self].
     sel label: name.
 
     "Modified: / 03-06-2011 / 10:43:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-11-2011 / 14:33:00 / cg"
 !
 
 menuSave
@@ -514,9 +517,9 @@
 !BookmarkListEditor class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/BookmarkListEditor.st,v 1.2 2011/07/03 18:00:49 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/BookmarkListEditor.st,v 1.3 2011/11/18 13:33:19 cg Exp §'
 !
 
 version_SVN
     ^ '$Id$'
-! !
\ No newline at end of file
+! !