--- a/Tools__NewSystemBrowser.st	Mon Feb 27 12:15:08 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 27 13:52:39 2012 +0100
@@ -7911,7 +7911,7 @@
                   isVisible: smallTeamAvailable
                 )
                (MenuItem
-                  label: 'With SmallTeam Version On Host'
+                  label: 'With SmallTeam Version on Host'
                   translateLabel: true
                   isVisible: smallTeamAvailable
                   submenuChannel: compareClassWithSmallTeamVersionMenu
@@ -7985,7 +7985,7 @@
         nil
       )
 
-    "Modified: / 13-02-2012 / 17:46:10 / cg"
+    "Modified: / 17-02-2012 / 22:20:34 / cg"
 !
 
 classNewHaskellClassSlice
@@ -8237,7 +8237,7 @@
      #(Menu
         (
          (MenuItem
-            label: 'Smalltalk class'
+            label: 'Smalltalk Class'
             itemValue: classMenuNewSmalltalkClass
             translateLabel: true
           )
@@ -8320,7 +8320,7 @@
         nil
       )
 
-    "Modified: / 08-08-2011 / 07:47:16 / cg"
+    "Modified: / 17-02-2012 / 22:03:09 / cg"
 !
 
 classSmallTeamMenu
@@ -9386,7 +9386,7 @@
                   #label: '-'
                 )
          #(#MenuItem
-            #label: 'Inline All Self Sends'
+            #label: 'Inline all self-Sends'
             #translateLabel: true
             #value: #selectorMenuInlineSelfSends
             #enabled: #hasSingleMethodSelectedAndCanUseRefactoringSupportHolder
@@ -10705,7 +10705,7 @@
                 )
                (MenuItem
                   enabled: smallTeamAvailable
-                  label: 'With SmallTeam Version On Host'
+                  label: 'With SmallTeam Version on Host'
                   translateLabel: true
                   submenuChannel: compareMethodWithSmallTeamVersionMenu
                 )
@@ -10907,6 +10907,8 @@
         nil
         nil
       )
+
+    "Modified: / 17-02-2012 / 22:20:52 / cg"
 !
 
 selectorMenuCopyMoveRemoveSlice
@@ -41948,7 +41950,9 @@
                         initialAnswer := inherited category.
                         gotInherited := true.
                     ]
-                ]
+                ] ifFalse:[
+                    superClass := mthd mclass superclass.
+                ].
             ].
             "look for majority protocol in subclasses"
             subclassCategories := Bag new.
@@ -41983,7 +41987,7 @@
 
     self moveMethods:methodSelection toProtocol:newCategory
 
-    "Modified: / 13-02-2012 / 14:43:22 / cg"
+    "Modified: / 16-02-2012 / 15:34:37 / cg"
 !
 
 selectorMenuNewImageSpec
@@ -45808,18 +45812,19 @@
 
     m := Menu new.
     m addItem:(MenuItem 
-                label:'Smalltalk method' 
+                label:'Smalltalk Method' 
                 value:[self selectorMenuNewMethod: SmalltalkLanguage instance]).
 
     allLanguages do:[:eachLanguage |
             m addItem:(MenuItem 
-                        label:(eachLanguage name) , ' method'
+                        label:(eachLanguage name) , ' Method'
                         value:[self selectorMenuNewMethod: eachLanguage])
 
     ].
     ^ m
 
     "Created: / 30-12-2009 / 19:43:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-02-2012 / 22:15:06 / cg"
 !
 
 sentMessagesMenu
@@ -55783,11 +55788,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1715 2012-02-27 11:15:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1716 2012-02-27 12:52:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1715 2012-02-27 11:15:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1716 2012-02-27 12:52:39 cg Exp $'
 !
 
 version_SVN