--- a/StandardSystemView.st	Mon Feb 23 17:22:58 2015 +0100
+++ b/StandardSystemView.st	Tue Feb 24 15:56:36 2015 +0100
@@ -1141,7 +1141,7 @@
     (wg := windowGroup) notNil ifTrue:[
         "/ '  fout-focusView: ' print. windowGroup focusView printCR.
         (v := wg focusView) notNil ifTrue:[
-            "/ wg focusView:nil.  -- let windowGroup do it.
+            "/ wg focusView:nil.  "/ -- let windowGroup do it.
             v showNoFocus:(windowGroup explicitFocusView == v).
             "/ '  send-has-nofocus to: ' print. v printCR.
             v hasKeyboardFocus:false.
@@ -1662,10 +1662,11 @@
     (UserPreferences current icccm20Compliant) ifTrue:[
         "/ICCCM 2.0 compliant name & class. See ICCCM 2.0 section 4.1.2.5.
 
-        | lastSepIndex |
+        | commandName lastSepIndex |
 
-        lastSepIndex := Smalltalk commandName lastIndexOf: Filename separator.
-        windowNameString := Smalltalk commandName copyFrom: lastSepIndex + 1.
+        commandName := Smalltalk commandName.
+        lastSepIndex := commandName lastIndexOf: Filename separator.
+        windowNameString := commandName copyFrom: lastSepIndex + 1.
         windowClassNameString := windowNameString asUppercaseFirst.
 
         "/ Also, set _NET_WM_PID
@@ -1746,11 +1747,11 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.229 2015-02-23 16:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.230 2015-02-24 14:56:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.229 2015-02-23 16:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.230 2015-02-24 14:56:36 cg Exp $'
 ! !