--- a/CodeGeneratorTool.st	Wed May 17 17:01:57 2017 +0200
+++ b/CodeGeneratorTool.st	Wed May 17 17:02:03 2017 +0200
@@ -360,11 +360,13 @@
 
 !CodeGeneratorTool class methodsFor:'compilation'!
 
-compile:theCode forClass:aClass inCategory:cat 
+compile:theCode forClass:aClass inCategory:cat
     "install some code for a class.
-     If refactory browser stuff is avaliable the refactory tools are used to support undo"
+     If refactory browser stuff is available the refactory tools are used to support undo"
 
     self new compile:theCode forClass:aClass inCategory:cat
+
+    "Modified (comment): / 17-05-2017 / 16:56:12 / mawalch"
 ! !
 
 !CodeGeneratorTool class methodsFor:'defaults'!
@@ -837,11 +839,13 @@
 !CodeGeneratorTool class methodsFor:'private'!
 
 canUseRefactoringSupport
-    "check if refactory browser stuff is avaliable"
+    "check if refactory browser stuff is available"
 
-     ^ RefactoryChangeManager notNil and:[RefactoryChangeManager isLoaded 
+     ^ RefactoryChangeManager notNil and:[RefactoryChangeManager isLoaded
         and:[SelectorEnvironment notNil and:[SelectorEnvironment isLoaded
         and:[UserPreferences current useRefactoringSupport]]]]
+
+    "Modified (comment): / 17-05-2017 / 16:56:03 / mawalch"
 !
 
 methodNameTemplateFor:aSelector
@@ -1713,18 +1717,20 @@
 
 !CodeGeneratorTool methodsFor:'compilation'!
 
-compile:theCode forClass:aClass inCategory:cat 
+compile:theCode forClass:aClass inCategory:cat
     "install some code for a class.
-     If refactory browser stuff is avaliable the refactory tools are used to support undo"
+     If refactory browser stuff is available the refactory tools are used to support undo"
 
     self
-        compile:theCode forClass:aClass inCategory:cat 
+        compile:theCode forClass:aClass inCategory:cat
         skipIfSame:true
+
+    "Modified (comment): / 17-05-2017 / 16:55:17 / mawalch"
 !
 
-compile:theCode forClass:aClass inCategory:categoryOrNil skipIfSame:skipIfSame 
+compile:theCode forClass:aClass inCategory:categoryOrNil skipIfSame:skipIfSame
     "install some code for a class.
-     If refactory browser stuff is avaliable the refactory tools are used to support undo"
+     If refactory browser stuff is available the refactory tools are used to support undo"
 
     |change compiler selector oldMethod category|
 
@@ -1747,7 +1753,7 @@
             oldMethod := aClass compiledMethodAt:selector.
             oldMethod notNil ifTrue:[
                 oldMethod source = theCode ifTrue:[^ self ]. "/ the same.
-            
+
                 categoryOrNil isNil ifTrue:[
                     "/ if no category given, take the existing one.
                     category := oldMethod category.
@@ -1758,7 +1764,7 @@
 
     category isNil ifTrue:[
         category := Compiler defaultMethodCategory.
-    ].    
+    ].
 
     self canUseRefactoringSupport ifFalse:[
         "/ compile immediately
@@ -1776,10 +1782,11 @@
         "/ do it now.
         RefactoryChangeManager performChange:change.
     ].
-    
+
     "Modified: / 21-08-2006 / 18:39:06 / cg"
     "Modified (format): / 21-01-2012 / 10:40:59 / cg"
     "Modified (format): / 05-08-2014 / 21:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 17-05-2017 / 16:55:49 / mawalch"
 !
 
 compilerClass
@@ -1816,9 +1823,11 @@
 !CodeGeneratorTool methodsFor:'private'!
 
 canUseRefactoringSupport
-    "check if refactory browser stuff is avaliable"
+    "check if refactory browser stuff is available"
 
      ^ self class canUseRefactoringSupport
+
+    "Modified (comment): / 17-05-2017 / 16:55:06 / mawalch"
 !
 
 privCreateClassResponsibleProtocolFor:aClass