--- a/Tools__NewSystemBrowser.st	Wed May 29 15:58:10 2013 +0200
+++ b/Tools__NewSystemBrowser.st	Wed May 29 16:59:07 2013 +0200
@@ -39554,15 +39554,11 @@
 projectMenuFindClassesNotTaggedAs:aSymbolicTag
     "find classes which have a version different from aSymbolicTag."
 
-    |projects differentClasses|
-
-    projects := self selectedProjects value.
-    (projects includes:(NavigatorModel nameListEntryForALL)) ifTrue:[
-        projects := Smalltalk allProjectIDs
-    ].
+    |differentClasses|
+
     differentClasses := OrderedCollection new.
     self withWaitCursorDo:[
-        projects do:[:eachProject |
+        self selectedProjectsDo:[:eachProject |
             |module directory perProjectInfo classesInImage
              autoloadedClassesInImage filesInImage autoloadedFilesInImage
              classesNotInRepository classesDeletedInRepository filesNotInImage|
@@ -40412,18 +40408,19 @@
 
     <resource: #obsolete> "use ...Using:manager variant"
 
-    |tag|
+    |tag allClasses|
 
     tag := Dialog request:'Tag:'.
     tag isEmptyOrNil ifTrue:[^ self ].
 
     self withWaitCursorDo: [
+        allClasses := OrderedCollection new.
         self selectedProjectsDo:[:packageToTag |
-            |classes|
-
-            classes := Smalltalk allClassesInPackage:packageToTag.
-            SourceCodeManagerUtilities default tagClasses:classes as:tag.
-        ]
+            allClasses addAll:((Smalltalk allClassesInPackage:packageToTag)
+                                    asOrderedCollection reject:[:cls | cls isPrivate]).
+        ].
+
+        SourceCodeManagerUtilities default tagClasses:allClasses as:tag.
     ]
 
     "Created: / 12-09-2006 / 13:25:09 / cg"
@@ -58475,15 +58472,15 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1882 2013-05-29 13:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1883 2013-05-29 14:59:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1882 2013-05-29 13:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1883 2013-05-29 14:59:07 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1882 2013-05-29 13:58:10 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.1883 2013-05-29 14:59:07 cg Exp $'
 ! !