--- a/Tools__MethodCategoryList.st	Mon Feb 13 20:42:46 2017 +0100
+++ b/Tools__MethodCategoryList.st	Mon Feb 13 20:42:57 2017 +0100
@@ -528,7 +528,7 @@
                     "/ Q: is this needed (methodCategoryList should send me a new inGenerator)
                     listValid == true ifTrue:[ self invalidateList ].
 
-                    "/ if its category is selected, updateOutputGenerator
+                    "/ if it's category is selected, updateOutputGenerator
                     selectedCategories := selectedProtocolsHolder value.
                     selectedCategories size > 0 ifTrue:[
                         selectedCategories := selectedCategories collect:[:each | each ifNil:[self class nameListEntryForNILCategory]].
@@ -702,6 +702,7 @@
 
     "Created: / 05-02-2000 / 13:42:10 / cg"
     "Modified: / 23-09-2011 / 20:37:31 / cg"
+    "Modified (comment): / 13-02-2017 / 20:33:18 / cg"
 !
 
 getSelectedProtocolsFromIndices