--- a/EditTextView.st	Mon Jun 09 16:24:13 2008 +0200
+++ b/EditTextView.st	Fri Jun 13 11:01:06 2008 +0200
@@ -2370,7 +2370,10 @@
         self dropFileObject:aDropObject
     ] ifFalse:[
         aDropObject isTextObject ifTrue:[
-            text := aDropObject theObject asStringWithoutFinalCR
+            text := aDropObject theObject.
+            text isStringCollection ifTrue:[
+                text := text asStringWithoutFinalCR
+            ].
         ] ifFalse:[
             text := aDropObject theObject asString
         ].
@@ -7289,5 +7292,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.432 2008-06-06 08:09:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.433 2008-06-13 09:01:06 cg Exp $'
 ! !