--- a/Tools__NewSystemBrowser.st	Tue Oct 30 12:25:03 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Tue Oct 30 15:21:46 2012 +0100
@@ -16166,7 +16166,8 @@
                (MenuItem
                   enabled: hasMethodSelected
                   label: 'CheckIn Class(es)...'
-                  itemValue: methodListMenuCheckInClass
+                  itemValue: methodListMenuCheckInClassUsingManagerNamed:
+                  argument: nil
                   translateLabel: true
                   labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn Class(es)...')
                   showBusyCursorWhilePerforming: true
@@ -18444,7 +18445,8 @@
 !
 
 selectedMethodsClasses
-    ^ self selectedMethodsValue collect:[:m | m mclass] as:Set
+    ^ (self selectedMethodsValue collect:[:m | m mclass] as:Set) 
+            select:[:each| each notNil]
 
     "Created: / 07-08-2006 / 12:13:37 / cg"
 !
@@ -36821,23 +36823,6 @@
 
 !NewSystemBrowser methodsFor:'menu actions-methodList'!
 
-methodListMenuCheckInClass
-    "check the selected methods class(es) into the source repository."
-
-    <resource: #obsolete> "use ...Using:manager variant"
-
-    |classes|
-
-    classes := self selectedMethodsClasses asOrderedCollection.
-
-    ^ self
-        classMenuCheckIn:true
-        classes:classes
-
-    "Modified: / 18-11-2011 / 18:49:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-02-2012 / 09:12:37 / cg"
-!
-
 methodListMenuCheckInClassUsingManager: manager
     "check the selected methods class(es) into the source repository."
 
@@ -49083,6 +49068,7 @@
             selectedMethods := anotherNavigationState selectedMethods value ? #().
             isMethodBrowser ifTrue:[
                 selectedClasses := selectedMethods collect:[:each | each mclass] as:IdentitySet.
+                selectedClasses := selectedClasses select:[:each | each notNil].
                 protocols := selectedMethods collect:[:each | each category] as:Set.
                 meta := (selectedClasses size == 1) and:[ selectedClasses anElement isMeta ].
             ] ifFalse:[
@@ -57846,11 +57832,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1809 2012-10-30 01:20:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1810 2012-10-30 14:21:46 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1809 2012-10-30 01:20:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1810 2012-10-30 14:21:46 stefan Exp $'
 !
 
 version_SVN