--- a/ProjectChecker.st	Thu Sep 13 19:30:14 2012 +0200
+++ b/ProjectChecker.st	Tue Sep 18 02:10:30 2012 +0200
@@ -96,7 +96,7 @@
 !ProjectChecker class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.7 2012-09-13 17:19:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.8 2012-09-18 00:10:30 vrany Exp $'
 ! !
 
 !ProjectChecker methodsFor:'accessing'!
@@ -443,6 +443,8 @@
             (ProjectProblem newMethodSourceNotAvailable method: method).
         ^false
     ].
+    method programmingLanguage isSmalltalk ifFalse:[ ^ false ].
+
     [
         (Parser parseMethod: method source) == #Error ifTrue:[
             self addProblem:
@@ -561,7 +563,7 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.7 2012-09-13 17:19:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.8 2012-09-18 00:10:30 vrany Exp $'
 !
 
 version_SVN