--- a/Menu.st	Fri Dec 04 14:34:12 2009 +0100
+++ b/Menu.st	Fri Dec 04 14:38:27 2009 +0100
@@ -634,7 +634,7 @@
     "add a separating line item at the end;
      useful to build a menu programmatically (or, to add more items dynamically)"
 
-    self addItem:(MenuItem new label:'-').
+    self addItem:(MenuItem separator).
 !
 
 removeItem:aMenuItem
@@ -1182,9 +1182,9 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.73 2009-10-14 21:14:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.74 2009-12-04 13:38:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.73 2009-10-14 21:14:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.74 2009-12-04 13:38:27 cg Exp $'
 ! !