--- a/CodeGeneratorTool.st	Thu Oct 22 15:24:54 2009 +0200
+++ b/CodeGeneratorTool.st	Thu Oct 22 15:25:07 2009 +0200
@@ -2810,6 +2810,9 @@
 !
 
 codeFor_shouldImplementFor:selector inClass:aClass
+    "used in the 'generate required protocol' to generate a shouldImplement-sending
+     method for each subclassClassresponsibility method above aClass."
+
     |mthd comment implClass methodBodyStream searcher errorMessageString|
 
     (aClass notNil
@@ -2828,17 +2831,19 @@
         nextPutAll:'    "'.
 
     "/ include the comment of the subclassResponsibility-sending method
+
     comment := mthd methodComment.
     comment isEmptyOrNil ifTrue:[
         methodBodyStream 
             nextPutAll:('superclass <1s> says that I am responsible to implement this method'  
                         expandMacrosWith:implClass name)
     ] ifFalse:[
-        comment asStringCollection do:[:eachLine|
-            methodBodyStream nextPutAll:eachLine.
-        ] separatedBy:[
-            methodBodyStream cr; nextPutAll:'     '.
-        ].
+        comment 
+            asStringCollection do:[:eachLine|
+                methodBodyStream nextPutAll:eachLine.
+            ] separatedBy:[
+                methodBodyStream cr; nextPutAll:'     '.
+            ].
     ].
     methodBodyStream 
         nextPut:$"; cr; cr.
@@ -2893,9 +2898,9 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.68 2009-10-22 12:23:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.69 2009-10-22 13:25:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.68 2009-10-22 12:23:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.69 2009-10-22 13:25:07 cg Exp $'
 ! !