diff --git a/font b/font
index 210371a..703e1b0 100755
--- a/font
+++ b/font
@@ -48,7 +48,7 @@ sub _resize_xft_string
   foreach my $piece (@pieces)
   {
     # Assumption: xft:fontname comes before pixelsize=whatever
-    $monaco ||= $piece =~ /^Monaco$/i;
+    $monaco ||= $piece =~ /^Monaco/i;
 
     # matching string
     if ($piece =~ /pixelsize=(\d*)/)
@@ -59,6 +59,7 @@ sub _resize_xft_string
       # monaco font
       if ($monaco)
       {
+        print "yes";
         my (@monaco_unicode_sizes)    = (8, 9, 10, 11, 13, 15, 16, 18, 21, 22, 28);
         my ($monaco_default_size)     = &{ sub {  my @a = sort { $a <=> $b } @_;
                                                   return ($a[$#a/2] + $a[@a/2]) / 2;}