--- a/DeviceWorkstation.st	Fri Feb 07 15:23:10 2014 +0100
+++ b/DeviceWorkstation.st	Fri Feb 07 15:23:19 2014 +0100
@@ -4943,7 +4943,7 @@
     "/
     "/ only allow one dispatcher process per display
     "/
-    dispatching ifTrue:[^ self].
+    (dispatchProcess notNil and:[dispatchProcess isDead not]) ifTrue:[^ self].
     dispatching := true.
 
     AllScreens isNil ifTrue:[
@@ -8292,11 +8292,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.600 2014-02-03 10:30:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.601 2014-02-07 14:23:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.600 2014-02-03 10:30:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.601 2014-02-07 14:23:19 cg Exp $'
 ! !