diff --git a/collects/mrlib/name-message.ss b/collects/mrlib/name-message.ss
index 44f7c0e5..a960572e 100644
--- a/collects/mrlib/name-message.ss
+++ b/collects/mrlib/name-message.ss
@@ -260,7 +260,7 @@
   
   (define label-width
     (if label
-        (let-values ([(w _1 _2 _3) (send dc get-text-extent label)])
+        (let-values ([(w _1 _2 _3) (send dc get-text-extent label button-label-font)])
           w)
         0))