--- a/WindowGroup.st	Mon Nov 13 17:41:57 1995 +0100
+++ b/WindowGroup.st	Mon Nov 13 18:11:01 1995 +0100
@@ -35,7 +35,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.34 1995-11-11 15:53:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.35 1995-11-13 17:11:01 cg Exp $'
 !
 
 documentation
@@ -776,7 +776,7 @@
 	    nm := top processName.
 	    (dev := top device) notNil ifTrue:[
 		devNm := dev displayName.
-		devNm notNil ifTrue:[
+		(devNm notNil and:[devNm ~= Display displayName]) ifTrue:[
 		    nm := nm , ' (' , devNm , ')'
 		]
 	    ]