--- a/StandardSystemView.st	Wed Jun 05 16:36:14 2013 +0200
+++ b/StandardSystemView.st	Thu Jun 13 15:59:34 2013 +0200
@@ -924,17 +924,17 @@
     newLabel := aString.
     newLabel notNil ifTrue:[newLabel := newLabel string].
     newLabel ~= label ifTrue:[
-	label := newLabel.
-	drawableId notNil ifTrue: [
-	    expandedLabel := self windowLabelFor:label.
-	    device setWindowName:expandedLabel in:drawableId.
-	    shown ifTrue:[
-		"
-		 unbuffered - to make it visible right NOW
-		"
-		device flush.
-	    ]
-	]
+        label := newLabel.
+        drawableId notNil ifTrue: [
+            expandedLabel := self windowLabelFor:label.
+            device setWindowName:(expandedLabel ? '') in:drawableId.
+            shown ifTrue:[
+                "
+                 unbuffered - to make it visible right NOW
+                "
+                device flush.
+            ]
+        ]
     ]
 
     "Created: / 08-09-1995 / 19:37:06 / claus"
@@ -1667,11 +1667,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.207 2013-05-29 17:40:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.208 2013-06-13 13:59:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.207 2013-05-29 17:40:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.208 2013-06-13 13:59:34 cg Exp $'
 ! !