--- a/UIPainter.st	Fri Jun 13 10:22:29 2008 +0200
+++ b/UIPainter.st	Fri Jun 13 10:52:51 2008 +0200
@@ -4322,7 +4322,7 @@
 doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown
     "browse or create the aspect method as entered in the field"
 
-    |cls spec aspect code|
+    |cls spec aspect code implementingClass|
 
     cls := self specClass.
     cls isNil ifTrue:[
@@ -4342,8 +4342,12 @@
         ].
         ^ self
     ].
-        
-    (cls implements:aspect asSymbol) ifFalse:[
+
+    implementingClass := (cls whichClassImplements:aspect asSymbol).
+    implementingClass isNil ifTrue:[
+        implementingClass := (cls class whichClassImplements:aspect asSymbol).
+    ].
+    implementingClass isNil ifTrue:[
         (Dialog confirm:(resources 
                             stringWithCRs:'%1 does not implement %2.\\Create ?'
                             with:(cls name allBold)
@@ -4363,7 +4367,8 @@
             inClass:cls.
         code readStream fileIn.
     ].
-    UserPreferences current systemBrowserClass openInClass:cls selector:aspect
+    UserPreferences current systemBrowserClass 
+        openInClass:implementingClass selector:aspect
 !
 
 doBrowseAspectMethods