--- a/WorkspaceApplication.st	Mon Sep 24 12:34:43 2012 +0200
+++ b/WorkspaceApplication.st	Wed Sep 26 11:58:28 2012 +0200
@@ -2917,13 +2917,15 @@
 !
 
 setCompilerForSyntax
-    |selectedWorkspace|
+    |selectedWorkspace ws|
 
     (selectedWorkspace := self selectedWorkspace) notNil ifTrue:[
-        self setCompilerForSyntaxIn:selectedWorkspace.
+        (ws := self workspaceViewOfView:selectedWorkspace) notNil ifTrue:[
+            self setCompilerForSyntaxIn:ws.
+        ]
     ].
 
-    "Modified: / 23-07-2012 / 23:07:50 / cg"
+    "Modified: / 26-09-2012 / 11:55:59 / cg"
 !
 
 setCompilerForSyntaxIn:aWorkspace
@@ -3982,11 +3984,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.230 2012-09-12 10:19:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.230 2012-09-12 10:19:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $'
 !
 
 version_SVN