--- a/EditTextView.st	Tue Apr 17 14:02:32 2007 +0200
+++ b/EditTextView.st	Tue Apr 17 14:04:54 2007 +0200
@@ -5411,7 +5411,7 @@
             Dialog warn:(resources stringWithCRs:msg).
             codingErrorReported := true.
         ].
-        ex proceedWith:($? codePoint)
+        ex proceedWith:ex defaultValue
     ] do:[
         s isString ifTrue:[
             s encoding ~~ characterEncoding ifTrue:[
@@ -7096,5 +7096,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.415 2007-04-13 10:19:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.416 2007-04-17 12:04:54 stefan Exp $'
 ! !