--- a/Semaphore.st	Thu Feb 23 16:45:16 2017 +0100
+++ b/Semaphore.st	Thu Feb 23 17:37:31 2017 +0100
@@ -391,15 +391,19 @@
 !
 
 name
-    "return the semaphores userFriendly name"
+    "return the semaphore's userFriendly name"
 
     ^ name
+
+    "Modified (comment): / 23-02-2017 / 16:54:32 / cg"
 !
 
 name:aString
-    "set the semaphores userFriendly name"
+    "set the semaphore's userFriendly name"
 
     name := aString
+
+    "Modified (comment): / 23-02-2017 / 16:54:35 / cg"
 ! !
 
 !Semaphore methodsFor:'private'!
@@ -496,9 +500,11 @@
 !Semaphore methodsFor:'private-accessing'!
 
 clear
-    "clear the semaphores count"
+    "clear the semaphore's count"
 
     count := 0
+
+    "Modified (comment): / 23-02-2017 / 16:54:28 / cg"
 !
 
 initSignals