--- a/DevWorkst.st	Mon Aug 18 19:16:42 1997 +0200
+++ b/DevWorkst.st	Mon Aug 18 19:17:46 1997 +0200
@@ -572,14 +572,14 @@
     "Return a collection of active display devices.
      Typically, there is only one: Display or Screen current."
 
-    ^ AllScreens
+    ^ AllScreens ? #()
 
     "
      Screen allScreens  
     "
 
     "Modified: 1.9.1995 / 13:38:35 / claus"
-    "Modified: 24.4.1996 / 19:36:59 / cg"
+    "Modified: 18.8.1997 / 18:43:42 / cg"
 !
 
 current
@@ -5654,6 +5654,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.238 1997-08-05 14:27:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/DevWorkst.st,v 1.239 1997-08-18 17:17:46 cg Exp $'
 ! !
 DeviceWorkstation initialize!

--- a/DeviceWorkstation.st	Mon Aug 18 19:16:42 1997 +0200
+++ b/DeviceWorkstation.st	Mon Aug 18 19:17:46 1997 +0200
@@ -572,14 +572,14 @@
     "Return a collection of active display devices.
      Typically, there is only one: Display or Screen current."
 
-    ^ AllScreens
+    ^ AllScreens ? #()
 
     "
      Screen allScreens  
     "
 
     "Modified: 1.9.1995 / 13:38:35 / claus"
-    "Modified: 24.4.1996 / 19:36:59 / cg"
+    "Modified: 18.8.1997 / 18:43:42 / cg"
 !
 
 current
@@ -5654,6 +5654,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.238 1997-08-05 14:27:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.239 1997-08-18 17:17:46 cg Exp $'
 ! !
 DeviceWorkstation initialize!