From 2ee2b233a9ce45a0ff4073c9d5de6786aedc31ca Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 2 Sep 1998 16:19:05 +0000
Subject: [PATCH] .

original commit: 5359e1633206d4c0802e6d9c0b20df2ff38d3d90
---
 src/mred/wrap/mred.ss | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 45b1a69d..6e09b5af 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -1645,7 +1645,10 @@
   
 (define (font->delta f)
   (define d (make-object wx:style-delta%))
-  (send d set-delta-face (send f get-face))
+  (let ([v (send f get-face)])
+    (if v
+	(send d set-delta-face v)
+	(send d set-delta 'change-family (send f get-family))))
   (send d set-delta 'change-size (send f get-point-size))
   (send d set-delta 'change-style (send f get-style))
   (send d set-delta 'change-weight (send f get-weight))