--- a/TextView.st	Thu Jul 30 06:49:25 2015 +0200
+++ b/TextView.st	Sun Aug 09 07:20:03 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -4824,7 +4826,7 @@
 
     selectionStartLine isNil ifTrue:[^ nil].
     sel := self textFromLine:selectionStartLine col:(selectionStartCol max:1) toLine:selectionEndLine col:selectionEndCol.
-    sel notNil ifTrue:[
+    sel notEmptyOrNil ifTrue:[
 	(gc characterEncoding ? #'iso10646-1' "eg unicode") ~~ #'iso10646-1' ifTrue:[
 	    sel := sel encodeFrom:gc characterEncoding into:#'iso10646-1'
         ].