--- a/WorkspaceApplication.st	Wed Aug 28 15:23:08 2013 +0100
+++ b/WorkspaceApplication.st	Thu Aug 29 12:20:29 2013 +0100
@@ -3715,41 +3715,46 @@
 
     allLanguages := OrderedCollection new.
     ProgrammingLanguage allDo:[:eachLanguage |
-	eachLanguage isSmalltalk ifFalse:[
-	    allLanguages add:eachLanguage
-	]
+        eachLanguage isSmalltalk ifFalse:[
+            allLanguages add:eachLanguage
+        ]
     ].
     allLanguages sort:[:a :b | a name < b name].
 
     m := Menu new.
     m addItem:((MenuItem
-		label:'Smalltalk'
-		choice:#syntaxHolder
-		choiceValue:SmalltalkLanguage instance)
-		enabled: self canChangeLanguageHolder).
+                label:'Smalltalk'
+                choice:#syntaxHolder
+                choiceValue:SmalltalkLanguage instance)
+                enabled: self canChangeLanguageHolder).
 
 "/    allLanguages notEmpty ifTrue:[
 "/        m addItem:(MenuItem separator).
 
-	allLanguages do:[:eachLanguage |
-	    "JV@2012-02-18: Add language only iff it supports
-	     evaluation (most of then do, but some may not -
-	     such as Java)"
-	    (eachLanguage evaluatorClass notNil
-		and:[eachLanguage evaluatorClass canUnderstand: #evaluate:in:receiver:notifying:logged:ifFail:])
-		ifTrue:[
-		m addItem:((MenuItem
-			    label:(eachLanguage name)
-			    choice:#syntaxHolder
-			    choiceValue:eachLanguage)
-			    enabled: self canChangeLanguageHolder).
-	    ].
-	].
+        allLanguages do:[:eachLanguage |
+            "JV@2012-02-18: Add language only iff it supports
+             evaluation (most of then do, but some may not -
+             such as Java)"
+            (eachLanguage isJava not 
+                "/ Java is funny - we don't have an evaluator for Java
+                "/ but we have to define evaluatorClass to return GroovyEvaluator
+                "/ to be able to inspect code in debugger/inspector. Hence this hack.
+                "/ We may need something like evaluatorClassForInspector/Debugger.
+                and:[eachLanguage evaluatorClass notNil
+                and:[eachLanguage evaluatorClass canUnderstand: #evaluate:in:receiver:notifying:logged:ifFail:]])
+                ifTrue:[
+                m addItem:((MenuItem
+                            label:(eachLanguage name)
+                            choice:#syntaxHolder
+                            choiceValue:eachLanguage)
+                            enabled: self canChangeLanguageHolder).
+            ].
+        ].
 "/    ].
     ^ m
 
     "Modified: / 04-02-2012 / 11:52:07 / cg"
-    "Modified: / 10-05-2012 / 23:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-08-2013 / 12:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 makeRecentDoItsMenuFor:aSelector