--- a/CodeGeneratorTool.st	Mon Aug 08 19:20:32 2011 +0200
+++ b/CodeGeneratorTool.st	Mon Aug 08 19:20:41 2011 +0200
@@ -814,7 +814,7 @@
 
     aClass allSuperclassesDo:[:eachSuperClass |
         eachSuperClass methodDictionary keysAndValuesDo:[:eachSelector :eachMethod |
-            ((eachMethod sends:#subclassResponsibility) or:[eachMethod sends:#subclassResponsibility:]) ifTrue:[
+            (eachMethod sends:#subclassResponsibility or:#subclassResponsibility:) ifTrue:[
                 (implementedSelectors includes:eachSelector) ifFalse:[
                     requiredSelectors add:eachSelector.
                 ]
@@ -826,6 +826,8 @@
         ]
     ].
     ^ requiredSelectors
+
+    "Modified: / 08-08-2011 / 18:44:58 / cg"
 ! !
 
 !CodeGeneratorTool methodsFor:'bulk changes'!
@@ -1580,5 +1582,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.92 2011-08-04 19:39:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.93 2011-08-08 17:20:41 cg Exp $'
 ! !