--- a/UIPainterView.st	Thu Nov 05 20:28:01 2009 +0100
+++ b/UIPainterView.st	Thu Nov 05 20:32:12 2009 +0100
@@ -100,9 +100,14 @@
 generateCommentedCode:aBoolean
     "comments in generated aspect methods; yes or no."
 
+    UserPreferences current generateComments ifFalse:[
+        aBoolean ifTrue:[
+            UserPreferences current generateComments:true
+        ].
+    ].
+
     UserPreferences current 
-        generateComments:true;
-        generateCommentsForAspectMethods:true.
+        generateCommentsForAspectMethods:aBoolean.
 !
 
 redefineAspectMethods