--- a/Text.st	Sat Jun 08 12:33:02 1996 +0200
+++ b/Text.st	Sat Jun 08 12:36:00 1996 +0200
@@ -525,7 +525,7 @@
 displayOn:aGC x:x0 y:y opaque:opaque
     "display the receiver on a GC"
 
-    |savedFont savedPaint savedBgPaint font color boldFont italicFont  
+    |savedFont savedPaint savedBgPaint font color boldFont italicFont boldItalicFont 
      bgPaint
      bold italic underline strikeout 
      pos    "{ Class: SmallInteger }"
@@ -592,10 +592,17 @@
         ].
 
         bold ifTrue:[
-            boldFont isNil ifTrue:[
-                boldFont := savedFont asBold on:device
-            ].
-            font := boldFont.
+            italic ifTrue:[
+                boldItalicFont isNil ifTrue:[
+                    boldItalicFont := savedFont asBold asItalic on:device
+                ].
+                font := boldItalicFont.
+            ] ifFalse:[
+                boldFont isNil ifTrue:[
+                    boldFont := savedFont asBold on:device
+                ].
+                font := boldFont.
+            ]
         ] ifFalse:[
             italic ifTrue:[
                 italicFont isNil ifTrue:[
@@ -1064,6 +1071,6 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.18 1996-06-04 09:25:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.19 1996-06-08 10:36:00 ca Exp $'
 ! !
 Text initialize!