--- a/UIPainterView.st	Tue Jul 13 17:49:25 1999 +0200
+++ b/UIPainterView.st	Tue Jul 13 18:57:31 1999 +0200
@@ -1118,8 +1118,20 @@
     spec := OrderedCollection new.
 
     self subViews do:[:aView|
+        |vSpec|
+
         aView ~~ inputView ifTrue:[
-            spec add:(self fullSpecFor:aView)
+            "/ care for wrapped views ...
+            vSpec := self fullSpecFor:aView.
+            vSpec isNil ifTrue:[
+                aView subViews size == 1 ifTrue:[
+                    vSpec := self fullSpecFor:(aView subViews first).
+                ]
+            ].
+            vSpec isNil ifTrue:[
+                self warn:'Oops - could not create spec for some view'
+            ].
+            spec add:vSpec
         ]
     ].