--- a/UIPainterView.st	Mon Jul 21 12:24:17 1997 +0200
+++ b/UIPainterView.st	Mon Jul 21 15:27:23 1997 +0200
@@ -337,7 +337,9 @@
 drop:anObjectOrCollection at:aPoint
     |spec newSel oldSel|
 
-    oldSel := selection copy.
+    (oldSel := selection) isCollection ifTrue:[
+        oldSel := selection copy
+    ].
     spec := (anObjectOrCollection at:1) theObject.
     newSel := self pasteSpecifications:spec keepLayout:false.