--- a/extensions.st	Sun Apr 14 13:30:53 2013 +0200
+++ b/extensions.st	Sun Apr 14 14:40:00 2013 +0200
@@ -1028,10 +1028,8 @@
             "/ suppressPackage := true
         ].
         suppressPackage ifFalse:[
-            shadowsOrNot := (cls notNil 
-                             and:[ cls theNonMetaclass projectDefinitionClass notNil
-                             and:[ (cls theNonMetaclass projectDefinitionClass savedOverwrittenMethodForClass:cls selector:selector) notNil ]])
-                                ifTrue:[' shadow' ]
+            shadowsOrNot := (self isShadowingExtension)
+                                ifTrue:[' shadowed' ]
                                 ifFalse:[ '' ].
             p := ' [' , ((mthdPackage ? '?'), shadowsOrNot allBold) allItalic , '] '.
             p := p asText emphasisAllAdd:(userPreferences emphasisForDifferentPackage).
@@ -2007,5 +2005,5 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.104 2013-04-02 20:28:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.105 2013-04-14 12:40:00 cg Exp $'
 ! !