--- a/WindowGroup.st	Wed Jul 20 12:51:22 2016 +0200
+++ b/WindowGroup.st	Wed Jul 20 16:38:41 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -2425,7 +2427,9 @@
     ] ifFalse:[
         nm := 'window handler'.
     ].
-    myProcess name:nm.
+    myProcess notNil ifTrue:[
+        myProcess name:nm.
+    ].
 ! !
 
 !WindowGroup methodsFor:'keyboard control'!