--- a/UIPainter.st	Mon Jun 23 10:19:58 1997 +0200
+++ b/UIPainter.st	Mon Jun 23 12:53:14 1997 +0200
@@ -1441,21 +1441,16 @@
     ].
 
     (view := Screen current viewFromUser) notNil ifTrue:[
-        view device == Screen current ifTrue:[
-            ^ self
-        ].
-
-        painter := self painter.
-
-        spec := UISpecification fromView:view topView.
+        view == Screen current rootView ifFalse:[
+            painter := self painter.
+            spec    := UISpecification fromView:view topView.
 
-     "/ ok, got it
-        painter setupFromSpec:spec.
-        painter className:view class name.
-        painter methodName:#newSpec.
+         "/ ok, got it
+            painter setupFromSpec:spec.
+            painter className:view class name.
+            painter methodName:#newSpec.
+        ]
     ]
-
-    "Modified: 17.6.1997 / 12:33:23 / cg"
 !
 
 doRaise