--- a/TextView.st	Fri Mar 31 19:55:09 2006 +0200
+++ b/TextView.st	Mon Apr 03 09:37:32 2006 +0200
@@ -3776,8 +3776,10 @@
 
     selectionStartLine isNil ifTrue:[^ nil].
     sel := self textFromLine:selectionStartLine col:selectionStartCol toLine:selectionEndLine col:selectionEndCol.
-    (characterEncoding ? #'unicode') ~~ #'unicode' ifTrue:[
-        sel := sel encodeFrom:characterEncoding into:#'unicode'
+    sel notNil ifTrue:[
+        (characterEncoding ? #'unicode') ~~ #'unicode' ifTrue:[
+            sel := sel encodeFrom:characterEncoding into:#'unicode'
+        ].
     ].
     ^ sel
 
@@ -3871,7 +3873,7 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.264 2006-03-27 17:09:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.265 2006-04-03 07:37:32 cg Exp $'
 ! !
 
 TextView initialize!