--- a/TextView.st	Tue Oct 23 15:59:22 2012 +0200
+++ b/TextView.st	Tue Oct 23 19:19:10 2012 +0200
@@ -4575,7 +4575,7 @@
     |sel|
 
     selectionStartLine isNil ifTrue:[^ nil].
-    sel := self textFromLine:selectionStartLine col:selectionStartCol toLine:selectionEndLine col:selectionEndCol.
+    sel := self textFromLine:selectionStartLine col:(selectionStartCol max:1) toLine:selectionEndLine col:selectionEndCol.
     sel notNil ifTrue:[
         (characterEncoding ? #'iso10646-1' "eg unicode") ~~ #'iso10646-1' ifTrue:[
             sel := sel encodeFrom:characterEncoding into:#'iso10646-1'
@@ -4711,11 +4711,11 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.341 2012-10-23 12:58:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.342 2012-10-23 17:19:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.341 2012-10-23 12:58:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.342 2012-10-23 17:19:10 cg Exp $'
 ! !
 
 TextView initialize!