--- a/EditField.st	Sun Feb 12 14:41:48 2017 +0100
+++ b/EditField.st	Mon Feb 13 20:10:10 2017 +0100
@@ -1036,9 +1036,11 @@
      (i.e. it can be a 0, 1 or 2-arg block)."
 
     "/ for now (to avoid incompatibilities), misuse the existing
-    "/ entryCompletionBlock and check if its a holder.
+    "/ entryCompletionBlock and check if it's a holder.
 
     entryCompletionBlock := aZeroOneOrTwoArgBlock
+
+    "Modified (comment): / 13-02-2017 / 20:09:56 / cg"
 !
 
 entryCompletionCharacter
@@ -2314,7 +2316,7 @@
 !EditField methodsFor:'scrolling'!
 
 makeColVisible:col inLine:lineNr
-    "don't scroll for the cursor, if its beyond the text and a lengthLimit
+    "don't scroll for the cursor, if it's beyond the text and a lengthLimit
      is present."
 
     |wText innerWidth colToMakeVisible|
@@ -2349,6 +2351,7 @@
 
     "Modified: / 06-09-1995 / 13:57:53 / claus"
     "Modified: / 04-08-2010 / 17:30:17 / cg"
+    "Modified (comment): / 13-02-2017 / 20:10:03 / cg"
 ! !
 
 !EditField methodsFor:'selections'!