--- a/Tools_ClassCategoryList.st	Sat Oct 20 21:43:59 2012 +0200
+++ b/Tools_ClassCategoryList.st	Sat Oct 20 21:44:49 2012 +0200
@@ -573,7 +573,10 @@
                                         and:[ (changedClasses includes:cls theNonMetaclass)
                                                 or:[(changedClasses includes:cls theMetaclass)] ].
                             included ifFalse:[
-                                included := showUndocumented and:[ isLoaded and:[ (cls theMetaclass includesSelector:#documentation) not ]].
+                                included := showUndocumented 
+                                            and:[ isLoaded 
+                                            and:[ cls isPrivate not    
+                                            and:[ (cls theMetaclass includesSelector:#documentation) not ]]].
                             ].
                         ].
                     ].
@@ -666,9 +669,11 @@
 
                         isLoaded := cls isLoaded.
                         isLoaded ifTrue:[ 
-                            numUnloaded := numUnloaded + 1. 
-                            (cls theMetaclass includesSelector:#documentation) ifFalse:[
-                                numUndocumented := numUndocumented + 1.
+                            numUnloaded := numUnloaded + 1.
+                            cls isPrivate ifFalse:[  
+                                (cls theMetaclass includesSelector:#documentation) ifFalse:[
+                                    numUndocumented := numUndocumented + 1.
+                                ].
                             ].
                         ].
 
@@ -945,9 +950,9 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.33 2012-10-19 15:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.34 2012-10-20 19:44:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.33 2012-10-19 15:00:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.34 2012-10-20 19:44:49 cg Exp $'
 ! !