--- a/BookmarkMenuBuilder.st	Sun Apr 09 22:19:00 2017 +0200
+++ b/BookmarkMenuBuilder.st	Tue Apr 11 01:57:43 2017 +0200
@@ -170,22 +170,24 @@
 visitFolder:anObject 
     |item submenu|
 
-    anObject parent isNil 
-        ifTrue:[ anObject children ? #() do:[:child | self visit:child ] ]
-        ifFalse:
-            [ item := self menuItemFolder: anObject.
-            stack top addItem:item.
-            submenu := Menu new.
-            item submenu:submenu.
-            stack push:submenu.
-            anObject children ? #() do:[:child | self visit:child ].
-            stack top hasItems ifTrue:[ stack top addSeparator ].
-            item := self menuItemAddBookmark:anObject.
-            stack top addItem:item.
-            stack pop ].
+    anObject parent isNil ifTrue:[ 
+        anObject children ? #() do:[:child | self visit:child ] 
+    ] ifFalse:[ 
+        item := self menuItemFolder: anObject.
+        stack top addItem:item.
+        submenu := Menu new.
+        item submenu:submenu.
+        stack push:submenu.
+        anObject children ? #() do:[:child | self visit:child ].
+        stack top hasItems ifTrue:[ stack top addSeparator ].
+        item := self menuItemAddBookmark:anObject.
+        stack top addItem:item.
+        stack pop 
+    ].
 
     "Created: / 23-05-2011 / 10:38:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-06-2011 / 08:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 11-04-2017 / 01:57:33 / cg"
 !
 
 visitSeparator:anObject
@@ -198,14 +200,14 @@
 !BookmarkMenuBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+    ^ '$Header$'
 !
 
 version_SVN
-    ^ '$Id: BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+    ^ '$Id$'
 ! !