--- a/Behavior.st	Fri Nov 04 15:50:21 2016 +0100
+++ b/Behavior.st	Fri Nov 04 15:50:25 2016 +0100
@@ -1734,7 +1734,7 @@
 !Behavior methodsFor:'cleanup'!
 
 flushSubclasses
-    "I dont keep my subclasses - but if anyone inherits from me,
+    "I don't keep my subclasses - but if anyone inherits from me,
      it better knows how to ignore this"
 !
 
@@ -3614,7 +3614,7 @@
 
 nameWithArticle
     "return a string consisting of classname preceeded by an article.
-     (dont expect me to write national variants for this ... :-)
+     (don't expect me to write national variants for this ... :-)
      If you have special preferences, redefine it..."
 
     |classname|