--- a/Tools__ProjectList.st	Tue Sep 17 02:16:38 2013 +0100
+++ b/Tools__ProjectList.st	Tue Sep 17 11:25:54 2013 +0100
@@ -582,10 +582,11 @@
                                    cls isRealNameSpace ifFalse:[
                                        doInclude := (thePackage = cls package).
                                        doInclude ifFalse:[
-                                            cls isJavaClass ifFalse:[
+                                           "/ JV@2013-09-17; Why? Java classes can have Smalltalk / Ruby / ... extensions as well!!
+                                            "/ cls isJavaClass ifFalse:[
                                                doInclude := (cls methodDictionary contains:[:mthd | thePackage = mthd package])
                                                             or:[ cls class methodDictionary contains:[:mthd | thePackage = mthd package]].
-                                            ].
+                                            "/ ].
                                             doInclude ifFalse:[
                                                 (showChangedClasses and:[ (changedClasses includes:cls theNonMetaclass)
                                                                         or:[(changedClasses includes:cls theMetaclass)] ]) ifTrue:[
@@ -637,6 +638,7 @@
 
     "Created: / 17-02-2000 / 23:49:37 / cg"
     "Modified: / 10-11-2006 / 17:15:15 / cg"
+    "Modified: / 17-09-2013 / 10:24:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ProjectList methodsFor:'initialize-release'!