diff --git a/Actions.plist b/Actions.plist
index 54981e1765..6e8d8a3320 100644
--- a/Actions.plist
+++ b/Actions.plist
@@ -6,6 +6,10 @@
 	<string></string>
 	<key>arrangeInFront:</key>
 	<string></string>
+	<key>fontSizeDown:</key>
+	<string></string>
+	<key>fontSizeUp:</key>
+	<string></string>
 	<key>hide:</key>
 	<string></string>
 	<key>hideOtherApplications:</key>
diff --git a/MMAppController.h b/MMAppController.h
index 15d7e7a2e8..5033d7e719 100644
--- a/MMAppController.h
+++ b/MMAppController.h
@@ -27,5 +27,7 @@
 - (IBAction)newWindow:(id)sender;
 - (IBAction)selectNextWindow:(id)sender;
 - (IBAction)selectPreviousWindow:(id)sender;
+- (IBAction)fontSizeUp:(id)sender;
+- (IBAction)fontSizeDown:(id)sender;
 
 @end
diff --git a/MMAppController.m b/MMAppController.m
index 496cf53f0f..26475a0107 100644
--- a/MMAppController.m
+++ b/MMAppController.m
@@ -40,6 +40,10 @@ static NSTimeInterval MMTerminateTimeout = 3;
 - (void)recurseSetAutoenablesItems:(BOOL)on;
 @end
 
+@interface NSNumber (MMExtras)
+- (int)tag;
+@end
+
 
 
 @implementation MMAppController
@@ -415,6 +419,18 @@ static NSTimeInterval MMTerminateTimeout = 3;
     }
 }
 
+- (IBAction)fontSizeUp:(id)sender
+{
+    [[NSFontManager sharedFontManager] modifyFont:
+            [NSNumber numberWithInt:NSSizeUpFontAction]];
+}
+
+- (IBAction)fontSizeDown:(id)sender
+{
+    [[NSFontManager sharedFontManager] modifyFont:
+            [NSNumber numberWithInt:NSSizeDownFontAction]];
+}
+
 - (byref id <MMFrontendProtocol>)
     connectBackend:(byref in id <MMBackendProtocol>)backend
                pid:(int)pid
@@ -582,3 +598,13 @@ static NSTimeInterval MMTerminateTimeout = 3;
 }
 
 @end  // NSMenu (MMExtras)
+
+
+
+
+@implementation NSNumber (MMExtras)
+- (int)tag
+{
+    return [self intValue];
+}
+@end // NSNumber (MMExtras)
diff --git a/gvimrc b/gvimrc
index 4634e661fa..9a0bf8b9de 100644
--- a/gvimrc
+++ b/gvimrc
@@ -44,7 +44,10 @@ an 10.331 File.Close<Tab>:q                     :confirm q<CR>
 "an 10.331 File.Close\ Tab                   :tabclose<CR>
 
 an 20.460 Edit.-SEP4-                       <Nop>
-an 20.465 Edit.Show\ Fonts\.\.\.            :action orderFrontFontPanel:<CR>
+an 20.465.10 Edit.Font.Show\ Fonts          :action orderFrontFontPanel:<CR>
+an 20.465.20 Edit.Font.-SEP5-               <Nop>
+an 20.465.30 Edit.Font.Bigger               :action fontSizeUp:<CR>
+an 20.465.40 Edit.Font.Smaller              :action fontSizeDown:<CR>
 an 20.470 Edit.Special\ Characters\.\.\.    :action orderFrontCharacterPalette:<CR>
 
 
@@ -176,6 +179,8 @@ menukeyequiv Edit.Copy                              <D-c>
 menukeyequiv Edit.Paste                             <D-v>
 menukeyequiv Edit.Select\ All                       <D-a>
 menukeyequiv Edit.Special\ Characters\.\.\.         <D-M-t> 
+menukeyequiv Edit.Font.Bigger                       <D-=>
+menukeyequiv Edit.Font.Smaller                      <D-->
 
 menukeyequiv Tools.Spelling.To\ Next\ error         <D-;>
 menukeyequiv Tools.Spelling.Suggest\ Corrections    <D-:>