--- a/UIObjectView.st	Tue Apr 08 00:47:25 1997 +0200
+++ b/UIObjectView.st	Tue Apr 08 01:09:51 1997 +0200
@@ -1347,15 +1347,28 @@
 canPasteInto:something
     "can paste into something ?
     "
+
+    |theView theSpec|
+
     something notNil ifTrue:[
         something isCollection ifFalse:[
-            ^ something specClass supportsSubComponents
+            theView := something
+        ] ifTrue:[
+            something size == 1 ifTrue:[
+                theView := (something at:1)
+            ]
         ].
-        something size == 1 ifTrue:[
-            ^ (something at:1) specClass supportsSubComponents
+        theView notNil ifTrue:[
+            theSpec := self specFor:theView.
+            theSpec isNil ifTrue:[
+                self halt.
+            ].
+            ^ theSpec class supportsSubComponents
         ]
     ].
     ^ false
+
+    "Modified: 8.4.1997 / 01:08:06 / cg"
 !
 
 canSelect:something