--- a/HTMLDocGenerator.st	Tue Nov 18 15:40:49 2003 +0100
+++ b/HTMLDocGenerator.st	Fri Nov 21 12:38:51 2003 +0100
@@ -2315,17 +2315,14 @@
     "/ generate a comment if its a getter, setter or similar
     ParseTreeSearcher notNil ifTrue:[
         aMethod messagesSent isEmpty ifTrue:[
-            (mClass allInstanceVariableNames) do:[:eachVar |
-                parseTree := mClass parseTreeFor:mSel.
-                parseTree notNil ifTrue: [
+            parseTree := mClass parseTreeFor:mSel.
+            parseTree notNil ifTrue: [
+                (mClass allInstanceVariableNames) do:[:eachVar |
                     matcher := ParseTreeSearcher getterMethod:eachVar.
                     (matcher executeTree: parseTree) notNil ifTrue:[
                         ^ 'Return the instance variable ' , eachVar, '.'.
                     ].
-                ].
-
-                parseTree := mClass parseTreeFor:mSel.
-                parseTree notNil ifTrue: [
+
                     matcher := ParseTreeSearcher setterMethod:eachVar.
                     (matcher executeTree: parseTree) notNil ifTrue:[
                         ^ 'Set the instance variable ' , eachVar, '.'.
@@ -2426,5 +2423,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.71 2003-11-18 14:06:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.72 2003-11-21 11:38:51 cg Exp $'
 ! !