--- 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