--- a/ProjectChecker.st	Thu Sep 27 10:05:09 2018 +0200
+++ b/ProjectChecker.st	Tue Oct 02 16:38:03 2018 +0200
@@ -500,24 +500,17 @@
 checkMethodSTCCompilability1: method into: problemIssue
     "Checks is the method can be compiled by STC based on Parser error/warnings"
 
-    | lang compiler |
+    | lang |
 
-    lang := method programmingLanguage.
+    lang := method programmingLanguage. 
     lang isSmalltalk ifFalse:[ ^ self ].
 
-    compiler := lang compilerClass new.
-    compiler
-        compile:method source
-        forClass:method mclass
-        inCategory:'others'
-        notifying:problemIssue
-        install:false
-        skipIfSame:false
-        silent:false
-        foldConstants:true
-        ifFail:[ ].
-
-    compiler usedGlobals do:[:nm | 
+    method usedGlobals do:[:nm | 
+        nm isLowercaseFirst ifTrue:[
+            problemIssue 
+                addWarning:'Contains reference to lowercase global: ', nm
+                from:0 to:0
+        ].
         (nm startsWith:Smalltalk undeclaredPrefix) ifTrue:[
             problemIssue 
                 addWarning:'Contains unresolved reference to: ',(nm copyFrom:(Smalltalk undeclaredPrefix size + 1))
@@ -585,8 +578,12 @@
     self checkMethodSTCCompilability2: method into: issue2.
     issue2 hasIssue ifTrue:[
         self addProblem: issue2
-    ]
-
+    ].
+^ self.
+Transcript showCR:helloBlaBla
+                "
+                    Smalltalk at:#helloBlaBla put:'xxx'
+                "
     "Created: / 11-04-2012 / 12:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (format): / 29-05-2014 / 16:54:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !