--- a/WorkspaceApplication.st	Wed Feb 08 09:11:17 2017 +0100
+++ b/WorkspaceApplication.st	Wed Feb 08 19:41:27 2017 +0100
@@ -4231,13 +4231,12 @@
 !
 
 compilerClassOf:aWorkspace
-    |compilerClass|
-
-    [    
+    ^ [    
         "/ catch, because it could be a non-edit view there (VT100, TeaTimer etc.)
-        compilerClass := aWorkspace compilerClass. 
-    ] on:MessageNotUnderstood do:[].
-    ^ compilerClass
+        aWorkspace compilerClass. 
+    ] on:MessageNotUnderstood do:[nil].
+
+    "Modified: / 08-02-2017 / 19:26:00 / stefan"
 !
 
 createEvaluationWorkspace