--- a/DeviceWorkstation.st	Mon Oct 14 23:28:51 1996 +0200
+++ b/DeviceWorkstation.st	Tue Oct 15 13:53:13 1996 +0200
@@ -27,7 +27,7 @@
 	category:'Interface-Graphics'
 !
 
-!DeviceWorkstation  class methodsFor:'documentation'!
+!DeviceWorkstation class methodsFor:'documentation'!
 
 copyright
 "
@@ -267,7 +267,7 @@
 "
 ! !
 
-!DeviceWorkstation  class methodsFor:'initialization'!
+!DeviceWorkstation class methodsFor:'initialization'!
 
 initialize
     "create local error signals; enable errorPrinting"
@@ -291,7 +291,7 @@
     ButtonTranslation := #(1 2 3)     "identity translation"
 ! !
 
-!DeviceWorkstation  class methodsFor:'Signal constants'!
+!DeviceWorkstation class methodsFor:'Signal constants'!
 
 deviceErrorSignal
     "return the signal used for device error reporting"
@@ -299,7 +299,7 @@
     ^ DeviceErrorSignal
 ! !
 
-!DeviceWorkstation  class methodsFor:'accessing'!
+!DeviceWorkstation class methodsFor:'accessing'!
 
 buttonTranslation:anArray
     "set the button translation, #(1 2 3) is no-translation,
@@ -311,7 +311,7 @@
     ].
 ! !
 
-!DeviceWorkstation  class methodsFor:'error handling'!
+!DeviceWorkstation class methodsFor:'error handling'!
 
 errorInterrupt:errID with:aParameter
     "{ Pragma: +optSpace }"
@@ -413,7 +413,7 @@
     "Modified: 24.4.1996 / 19:36:15 / cg"
 ! !
 
-!DeviceWorkstation  class methodsFor:'queries'!
+!DeviceWorkstation class methodsFor:'queries'!
 
 allScreens
     "Return a collection of active display devices.
@@ -520,7 +520,7 @@
     ^ 'unknown'
 ! !
 
-!DeviceWorkstation  class methodsFor:'standalone setup'!
+!DeviceWorkstation class methodsFor:'standalone setup'!
 
 exitOnLastClose:aBoolean
     "set/clear the flag which controls if the
@@ -570,7 +570,13 @@
 knownViews
     "return a collection of all known views"
 
-    ^ knownViews
+    |views|
+
+    views := IdentitySet new.
+    knownViews do:[:v | v notNil ifTrue:[views add:v]].
+    ^ views
+
+    "Modified: 15.10.1996 / 12:47:35 / cg"
 !
 
 knownViews:aCollection
@@ -4690,9 +4696,9 @@
     "Modified: 24.4.1996 / 19:42:39 / cg"
 ! !
 
-!DeviceWorkstation  class methodsFor:'documentation'!
+!DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.137 1996-10-14 21:28:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.138 1996-10-15 11:53:13 cg Exp $'
 ! !
 DeviceWorkstation initialize!