--- a/WorkspaceApplication.st	Thu Jul 19 17:28:21 2012 +0200
+++ b/WorkspaceApplication.st	Thu Jul 19 19:51:44 2012 +0200
@@ -2099,8 +2099,14 @@
 !
 
 setWindowLabel: label language: language
-
-    self window label:label, ' - ' , language name
+    |languageName|
+
+    language notNil ifTrue:[
+	languageName := ' - ', language name.
+    ] ifFalse:[
+	languageName := ''.
+    ].
+    self window label:label, ' - ' , languageName
 !
 
 smalltalkMenuEnabledHolder
@@ -3963,11 +3969,11 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.222 2012-07-19 15:08:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.223 2012-07-19 17:51:44 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.222 2012-07-19 15:08:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.223 2012-07-19 17:51:44 stefan Exp $'
 !
 
 version_SVN