--- a/DeviceWorkstation.st	Mon Jan 13 23:12:57 1997 +0100
+++ b/DeviceWorkstation.st	Mon Jan 13 23:52:45 1997 +0100
@@ -2886,7 +2886,7 @@
     ].
 
     p := [
-	self initializeDeviceResources.
+        self initializeDeviceResources.
 
         [dispatching] whileTrue:[
             AbortSignal handle:[:ex |
@@ -2910,7 +2910,7 @@
         ].
         AllScreens remove:self.
         dispatchProcess := nil.
-        self closeDown.
+        self close.
     ] newProcess.
 
     "/
@@ -2933,7 +2933,7 @@
     ]
 
     "Modified: 12.12.1995 / 20:52:57 / stefan"
-    "Modified: 13.1.1997 / 22:09:49 / cg"
+    "Modified: 13.1.1997 / 23:52:04 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'font helpers'!
@@ -4886,6 +4886,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.156 1997-01-13 21:57:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.157 1997-01-13 22:52:45 cg Exp $'
 ! !
 DeviceWorkstation initialize!