--- a/EditField.st	Thu Aug 24 17:01:32 2017 +0200
+++ b/EditField.st	Thu Aug 24 17:01:58 2017 +0200
@@ -1359,7 +1359,7 @@
      Redefined to force text to 1 line, and notify dependents
      of any changed extent-wishes (for automatic box resizing)."
 
-    |l oldWidth|
+    |l oldWidth newWidth|
 
     l := someText.
     l notEmptyOrNil ifTrue:[
@@ -1367,11 +1367,12 @@
     ].
     oldWidth := self widthOfContents.
     super list:l.
-    self widthOfContents ~~ oldWidth ifTrue:[
+    newWidth := self widthOfContents.
+    (newWidth > oldWidth and:[newWidth > self innerWidth]) ifTrue:[
         self changedPreferredBounds:nil
     ]
 
-    "Modified: 6.3.1997 / 16:13:36 / cg"
+    "Modified: / 24-08-2017 / 17:00:01 / cg"
 !
 
 stringValue