--- a/HTMLDocGenerator.st	Fri Sep 12 22:56:42 2003 +0200
+++ b/HTMLDocGenerator.st	Mon Sep 22 20:12:48 2003 +0200
@@ -2263,20 +2263,18 @@
     "/ generate a comment if its a getter, setter or similar
     ParseTreeSearcher notNil ifTrue:[
         (mClass allInstanceVariableNames) do:[:eachVar |
-            matcher := ParseTreeSearcher getterMethod:eachVar.
             parseTree := mClass parseTreeFor:mSel.
             parseTree notNil ifTrue: [
-                matcher executeTree: parseTree.
-                matcher answer notNil ifTrue:[
+                matcher := ParseTreeSearcher getterMethod:eachVar.
+                (matcher executeTree: parseTree) notNil ifTrue:[
                     ^ 'Return the instance variable ' , eachVar, '.'.
                 ].
             ].
 
-            matcher := ParseTreeSearcher setterMethod:eachVar.
             parseTree := mClass parseTreeFor:mSel.
             parseTree notNil ifTrue: [
-                matcher executeTree: parseTree.
-                matcher answer notNil ifTrue:[
+                matcher := ParseTreeSearcher setterMethod:eachVar.
+                (matcher executeTree: parseTree) notNil ifTrue:[
                     ^ 'Set the instance variable ' , eachVar, '.'.
                 ].
             ].
@@ -2374,5 +2372,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.59 2003-07-22 08:16:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.60 2003-09-22 18:12:48 cg Exp $'
 ! !