--- a/WorkspaceApplication.st	Fri Aug 19 12:19:16 2011 +0200
+++ b/WorkspaceApplication.st	Fri Aug 19 14:42:46 2011 +0200
@@ -2797,11 +2797,12 @@
     language isSymbol ifTrue:[
         language := ProgrammingLanguage named:language  
     ].
-    aWorkspace compilerClass:(language compilerClass "self compilerClassForSyntaxName:syntax").
+    aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax").
     self smalltalkMenuEnabledHolder value:(language isSmalltalk).
     LastLanguage := language.
 
     "Created: / 08-02-2011 / 21:32:39 / cg"
+    "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 spyOnIt
@@ -3779,13 +3780,13 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.212 2011-08-11 06:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.213 2011-08-19 12:42:46 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.212 2011-08-11 06:34:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.213 2011-08-19 12:42:46 vrany Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §'
 ! !