--- a/Tools__NewSystemBrowserCodeView.st	Thu Jun 13 12:23:07 2013 +0100
+++ b/Tools__NewSystemBrowserCodeView.st	Fri Jun 21 19:05:40 2013 +0100
@@ -413,7 +413,7 @@
         [:cls|
         menu addItem:(MenuItem 
                         label: ('Browse ' , cls fullName asText allBold)
-                        value:[self browseClass: cls])].
+                        itemValue:[self browseClass: cls])].
 
     ^ menu
 
@@ -466,16 +466,17 @@
     ] ifFalse:[
         menu addItem:(MenuItem 
                     label:(selector storeString , (' (all implementors) ') asText allItalic)
-                    value:[
+                    itemValue:[
                         self browseMethods:implementors
                             label:'Implementors of ' , selector storeString
                     ]).
         menu addSeparator.
         implementors do:[:mth | 
             menu 
-                addItem:(MenuItem label:(selector storeString 
-                                , (' in ' , mth containingClass name asText allBold))
-                        value:[ self browseMethod:mth label: 'Implementor of ' , selector storeString  ])
+                addItem:(MenuItem 
+                            label:(selector storeString 
+                                    , (' in ' , mth containingClass name asText allBold))
+                            itemValue:[ self browseMethod:mth label: 'Implementor of ' , selector storeString  ])
         ]
     ].
     ^ menu
@@ -495,16 +496,17 @@
     ] ifFalse:[
         menu addItem:(MenuItem 
                     label:(selector storeString , (' (all senders)') asText allItalic)
-                    value:[
+                    itemValue:[
                         self browseMethods:implementors
                             label:'Senders of ' , selector storeString
                     ]).
         menu addSeparator.
         implementors do:[:mth | 
             menu 
-                addItem:(MenuItem label:(mth selector storeString 
-                                , (' in ' , mth containingClass name asText allBold))
-                        value:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
+                addItem:(MenuItem 
+                            label:(mth selector storeString 
+                                   , (' in ' , mth containingClass name asText allBold))
+                            itemValue:[ self browseMethod:mth label: 'Sender of ' , selector storeString ])
         ]
     ].
     ^ menu
@@ -1029,7 +1031,7 @@
 !NewSystemBrowserCodeView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.13 2013-01-30 17:56:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowserCodeView.st,v 1.14 2013-06-21 00:41:01 cg Exp $'
 !
 
 version_HG
@@ -1038,7 +1040,7 @@
 !
 
 version_SVN
-    ^ '§Id: Tools__NewSystemBrowserCodeView.st 7486 2009-10-26 22:06:24Z vranyj1 §'
+    ^ '$Id: Tools__NewSystemBrowserCodeView.st,v 1.14 2013-06-21 00:41:01 cg Exp $'
 ! !