--- a/TextView.st	Fri Dec 22 15:23:38 2000 +0100
+++ b/TextView.st	Tue Jan 09 17:05:07 2001 +0100
@@ -3101,6 +3101,7 @@
     |sel s|
 
     (sel := self selection) isNil ifTrue:[^ nil].
+     sel := sel collect:[:each| each isNil ifTrue:[nil] ifFalse:[each string]].
     ^ (sel asStringWithCRsFrom:1 to:(sel size) compressTabs:false withCR:false) string
 !
 
@@ -3183,5 +3184,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.160 2000-12-04 17:58:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.161 2001-01-09 16:05:07 penk Exp $'
 ! !