--- a/WorkspaceApplication.st	Tue Feb 24 16:44:47 2015 +0100
+++ b/WorkspaceApplication.st	Tue Feb 24 16:45:11 2015 +0100
@@ -4184,7 +4184,7 @@
     |compilerClass|
 
     [    
-        "/ catch, because it could be a non-edit view there (VT100 view)
+        "/ catch, because it could be a non-edit view there (VT100, TeaTimer etc.)
         compilerClass := aWorkspace compilerClass. 
     ] on:MessageNotUnderstood do:[].
     ^ compilerClass
@@ -4390,7 +4390,6 @@
 
     |compilerClass selectedWorkspace selectedWorkspaceApp |
 
-
     "JV@2012-05-10: Modified to better support complex application models as tabs"
 
     super workspaceSelectionChanged.
@@ -4406,7 +4405,6 @@
     self canChangeLanguageHolder value:
         (selectedWorkspaceApp ? selectedWorkspace respondsTo: #compilerClass:).
 
-
     self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass).
 
     (selectedWorkspace notNil and:[ selectedWorkspace scrolledView isTextView or:[selectedWorkspaceApp notNil] ]) ifTrue:[
@@ -4420,17 +4418,13 @@
     ].
 
     "Update toolbar"
-    selectedWorkspaceApp notNil ifTrue:[
-        (selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
-            self toolBarView
-                client: selectedWorkspaceApp spec: #toolBarSpec
-        ] ifFalse:[
-            self toolBarView
-                client: self spec: #toolBarSpec builder: builder.
-        ]
+    (selectedWorkspaceApp notNil 
+    and:[ (selectedWorkspaceApp class respondsTo: #toolBarSpec) ]) ifTrue:[
+        "/ client provides one
+        self toolBarView client: selectedWorkspaceApp spec: #toolBarSpec
     ] ifFalse:[
-        self toolBarView
-            client: self spec: #toolBarSpec builder: builder.
+        "/ I provides it
+        self toolBarView client: self spec: #toolBarSpec builder: builder.
     ]
 ! !
 
@@ -4591,14 +4585,14 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+    ^ '$Id: WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
 ! !