--- a/WorkspaceApplication.st	Fri Sep 28 14:52:41 2012 +0200
+++ b/WorkspaceApplication.st	Fri Sep 28 19:55:57 2012 +0200
@@ -2929,22 +2929,27 @@
 !
 
 setCompilerForSyntaxIn:aWorkspace
-    |language|
+    |compilerClass language|
 
     language := self syntaxHolder value.
     language isSymbol ifTrue:[
         language := ProgrammingLanguage named:language  
     ].
     language isNil ifTrue:[
-        aWorkspace compilerClass:nil
+        compilerClass := nil
     ] ifFalse:[
-        aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax").
+        compilerClass := (language evaluatorClass "self compilerClassForSyntaxName:syntax").
     ].
+    [
+        "/ could be a non-text view (VT100Terminal)
+        aWorkspace compilerClass:compilerClass.
+    ] on:MessageNotUnderstood do:[].
+
     self smalltalkMenuEnabledHolder value:(language notNil and:[language isSmalltalk]).
 
     "Created: / 08-02-2011 / 21:32:39 / cg"
     "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-07-2012 / 10:54:18 / cg"
+    "Modified: / 28-09-2012 / 19:55:18 / cg"
 !
 
 spyOnIt
@@ -3918,9 +3923,11 @@
     (selectedWorkspace notNil and:[selectedWorkspace isScrollWrapper]) ifTrue:[  
         selectedWorkspace := selectedWorkspace scrolledView
     ].
-    compilerClass := selectedWorkspace 
-                            perform: #compilerClass 
-                            ifNotUnderstood: [nil]. 
+    [    
+        "/ catch, because it could be a non-edit view there (VT100 view)
+        compilerClass := selectedWorkspace compilerClass. 
+    ] on:MessageNotUnderstood do:[].
+
     compilerClass notNil ifTrue:[
         self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass).
     ] ifFalse:[
@@ -3954,7 +3961,7 @@
     ]
 
     "Modified: / 11-06-2011 / 00:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 19-07-2012 / 16:55:56 / cg"
+    "Modified: / 28-09-2012 / 19:53:46 / cg"
 ! !
 
 !WorkspaceApplication methodsFor:'user actions'!
@@ -3984,11 +3991,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.232 2012-09-28 17:55:57 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.232 2012-09-28 17:55:57 cg Exp $'
 !
 
 version_SVN