--- a/Text.st	Mon Feb 13 20:45:13 2017 +0100
+++ b/Text.st	Mon Feb 13 20:49:29 2017 +0100
@@ -1251,7 +1251,7 @@
     e := runs at:characterIndex.
     e := self class addEmphasis:newEmphasis to:e.
 
-    "/ if its equal to the previous emphasis, make it identical.
+    "/ if it's equal to the previous emphasis, make it identical.
 
     characterIndex > 1 ifTrue:[
         prevE := runs at:characterIndex-1.
@@ -1265,8 +1265,9 @@
      (Text string:'hello') allBold emphasisAt:2 add:#italic
     "
 
-    "Created: / 14.5.1996 / 16:48:39 / cg"
-    "Modified: / 31.3.1998 / 15:29:14 / cg"
+    "Created: / 14-05-1996 / 16:48:39 / cg"
+    "Modified: / 31-03-1998 / 15:29:14 / cg"
+    "Modified (comment): / 13-02-2017 / 20:31:59 / cg"
 !
 
 emphasisAt:characterIndex put:emphasis
@@ -1276,7 +1277,7 @@
 
     e := emphasis.
 
-    "/ if its equal to the previous emphasis, make it identical.
+    "/ if it's equal to the previous emphasis, make it identical.
 
     characterIndex > 1 ifTrue:[
         prevE := runs at:characterIndex-1.
@@ -1290,7 +1291,8 @@
      (Text string:'hello') allBold emphasisAt:2 put:#italic
     "
 
-    "Modified: / 31.3.1998 / 16:45:14 / cg"
+    "Modified: / 31-03-1998 / 16:45:14 / cg"
+    "Modified (comment): / 13-02-2017 / 20:32:03 / cg"
 !
 
 emphasisAt:characterIndex remove:emphasisToRemove