--- a/BookmarkAddMenuBuilder.st	Sat Aug 31 19:41:45 2013 +0200
+++ b/BookmarkAddMenuBuilder.st	Sat Aug 31 19:41:47 2013 +0200
@@ -82,7 +82,7 @@
             stack top addItem: addItem.
             anObject children ? #() do: [:child|self visit: child].
         ] ifFalse:[
-            item := MenuItem labeled: anObject label.
+            item := MenuItem label: anObject label.
             stack top addItem: item.
             submenu := Menu new.
             item submenu: submenu.
@@ -104,9 +104,10 @@
 !BookmarkAddMenuBuilder class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkAddMenuBuilder.st,v 1.2 2011-07-03 18:00:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkAddMenuBuilder.st,v 1.3 2013-08-31 17:41:47 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: BookmarkAddMenuBuilder.st,v 1.3 2013-08-31 17:41:47 cg Exp $'
 ! !
+