--- a/WorkspaceApplication.st	Thu Sep 26 13:12:35 2013 +0200
+++ b/WorkspaceApplication.st	Fri Sep 27 11:29:41 2013 +0200
@@ -1647,11 +1647,15 @@
 !WorkspaceApplication class methodsFor:'private'!
 
 createWorkspaceView
-    ^(UserPreferences current useCodeView2In:#Workspace)
+    | view |
+
+    view := (UserPreferences current useCodeView2In:#Workspace)
         ifTrue:[Tools::CodeView2 new]
-        ifFalse:[HVScrollableView for:Workspace]
-
-    "Modified: / 26-07-2011 / 10:28:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+        ifFalse:[HVScrollableView for:Workspace].
+    view codeAspect: SyntaxHighlighter codeAspectExpression.
+    ^ view
+
+    "Modified: / 27-09-2013 / 10:23:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !WorkspaceApplication class methodsFor:'special startup'!
@@ -4038,14 +4042,14 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.249 2013-09-25 10:33:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.250 2013-09-27 09:29:41 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.249 2013-09-25 10:33:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.250 2013-09-27 09:29:41 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st,v 1.249 2013-09-25 10:33:49 cg Exp $'
+    ^ '$Id: WorkspaceApplication.st,v 1.250 2013-09-27 09:29:41 vrany Exp $'
 ! !