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