# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1047918682 -3600
# Node ID 5d02658c548ae77ab3d22f634f9ff436e64aca4c
# Parent  389815b12d3a28f16a3f7ba3a3abe96d217b5c4b
must refetch class after adding instVars (when generating aspects)

diff -r 389815b12d3a -r 5d02658c548a UIPainter.st
--- a/UIPainter.st	Sun Mar 02 21:49:05 2003 +0100
+++ b/UIPainter.st	Mon Mar 17 17:31:22 2003 +0100
@@ -3545,9 +3545,12 @@
     code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode.
     code readStream fileIn.
 
+    "/ refetch - cls is now obsolete
+    cls := self targetClass.
+
     doBrowse ifTrue:[
         methods := selectorsToGenerateCode 
-                        collect:[:sel | cls compiledMethodAt:sel]
+                        collect:[:sel | self halt. cls compiledMethodAt:sel]
                         thenSelect:[:m | m notNil].
 
         UserPreferences systemBrowserClass