--- a/Tools_NavigationState.st	Fri Sep 27 11:29:41 2013 +0200
+++ b/Tools_NavigationState.st	Fri Sep 27 11:30:01 2013 +0200
@@ -144,9 +144,11 @@
 codeAspect:aSymbolOrNil
     "set the codeAspect; a symbol describing what is shown in the codeView"
 
-    codeAspect := aSymbolOrNil
+    codeAspect := aSymbolOrNil.
+    codeView codeAspect: aSymbolOrNil
 
-    "Created: / 11.2.2000 / 12:43:45 / cg"
+    "Created: / 11-02-2000 / 12:43:45 / cg"
+    "Modified: / 27-09-2013 / 09:59:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 codePaneAndPluginView
@@ -1168,7 +1170,6 @@
     "Created: / 24.2.2000 / 23:45:28 / cg"
 ! !
 
-
 !NavigationState methodsFor:'aspects-kludges'!
 
 metaToggle
@@ -1689,14 +1690,14 @@
 !NavigationState class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.51 2013-09-10 08:50:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.52 2013-09-27 09:30:01 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.51 2013-09-10 08:50:19 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigationState.st,v 1.52 2013-09-27 09:30:01 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools_NavigationState.st,v 1.51 2013-09-10 08:50:19 vrany Exp $'
+    ^ '$Id: Tools_NavigationState.st,v 1.52 2013-09-27 09:30:01 vrany Exp $'
 ! !