--- a/WindowGroup.st	Thu Aug 29 16:37:56 2013 +0200
+++ b/WindowGroup.st	Thu Aug 29 16:40:47 2013 +0200
@@ -428,8 +428,14 @@
     "set the currently active windowGroup.
      Temporary; do not use this interface, it will vanish."
 
-    LastActiveProcess := Processor activeProcess.
-    LastActiveGroup := aGroup
+    aGroup isNil ifTrue:[
+        LastActiveProcess := LastActiveGroup := nil.
+    ] ifFalse:[
+        LastActiveProcess := Processor activeProcess.
+        LastActiveGroup := aGroup
+    ].
+
+    "Modified: / 29-08-2013 / 14:49:11 / cg"
 ! !
 
 !WindowGroup class methodsFor:'focus control support'!
@@ -2799,11 +2805,11 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.321 2013-08-29 10:32:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.322 2013-08-29 14:40:47 cg Exp $'
 ! !