--- a/DeviceWorkstation.st	Mon Oct 14 18:15:24 2002 +0200
+++ b/DeviceWorkstation.st	Tue Oct 15 16:34:55 2002 +0200
@@ -4298,8 +4298,7 @@
     dispatchProcess := nil.
 
     DefaultScreen == self ifTrue:[
-        (Transcript notNil and:[Transcript topView device]) ~~ self
-        ifTrue:[
+        (Transcript isView and:[Transcript topView device ~~ self]) ifTrue:[
             DefaultScreen := Transcript topView device
         ] ifFalse:[
             "/ what should the defaultScreen be - help !!!!!!
@@ -7607,7 +7606,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.428 2002-10-07 09:19:32 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.429 2002-10-15 14:34:55 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!