--- a/Method.st	Tue Dec 19 10:22:17 2000 +0100
+++ b/Method.st	Tue Dec 19 17:15:13 2000 +0100
@@ -1786,7 +1786,9 @@
         cls := self containingClass
     ].
     (cls isNil or:[self package ~= cls package]) ifTrue:[
-        s := s , ' [' , (self package asText emphasizeAllWith:(Array with:#italic with:(#color->Color red darkened))), ']'
+        p := ' [ ' , self package asText allItalic , ' ] '.
+        p := p emphasisAtAllAdd:(#color->Color red darkened).
+        s := s , p
     ].
 
     moreInfo size == 0 ifTrue:[^ s].
@@ -2822,6 +2824,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.219 2000-12-01 15:36:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.220 2000-12-19 16:15:13 cg Exp $'
 ! !
 Method initialize!