--- a/DeviceWorkstation.st	Thu Aug 15 11:52:11 2019 +0200
+++ b/DeviceWorkstation.st	Thu Aug 15 14:05:53 2019 +0200
@@ -7948,12 +7948,16 @@
     super printOn:aStream.
 
     aStream nextPut:$(.
-    (name := self displayName) isNil ifTrue:[
-	name := 'defaultDisplay'
+    self == Display ifTrue:[
+        name := '= Display'
+    ] ifFalse:[
+        (name := self displayName) isNil ifTrue:[
+            name := 'defaultName'
+        ].
     ].
     aStream nextPutAll:name.
     self isOpen ifFalse:[
-	aStream nextPutAll:' - closed'.
+        aStream nextPutAll:' - closed'.
     ].
     aStream nextPut:$).
 ! !