--- a/CodeGeneratorTool.st	Fri Aug 25 12:27:36 2006 +0200
+++ b/CodeGeneratorTool.st	Fri Aug 25 15:41:23 2006 +0200
@@ -1775,7 +1775,9 @@
         source := source , (eachVar , ':' , eachVar , 'Arg ').
     ].
     source := source , Character cr.
-    source := source , ('    "set instance variables (automatically generated)"' , Character cr , Character cr).
+    (UserPreferences current generateCommentsForSetters) ifTrue:[
+        source := source , ('    "set instance variables (automatically generated)"' , Character cr , Character cr).
+    ].
     aCollectionOfVarNames do:[:eachVar |
         source := source , ('    ' , eachVar , ' := ' , eachVar , 'Arg.' , Character cr).
     ].
@@ -1948,5 +1950,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.45 2006-08-24 10:42:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.46 2006-08-25 13:41:23 cg Exp $'
 ! !