--- a/SimpleView.st	Wed Jul 20 10:10:58 2016 +0200
+++ b/SimpleView.st	Wed Jul 20 10:16:09 2016 +0200
@@ -8121,11 +8121,13 @@
 !SimpleView methodsFor:'menu & menu actions'!
 
 fontLargerOrSmaller:largerBoolean
-    |newFont|
-
+    |font oldSize newFont|
+
+    font := gc font.
+    oldSize := font size.
     newFont := font asSize:(largerBoolean
-                            ifTrue:[(font size + 1) min:100]
-                            ifFalse:[(font size-1) max:4]).
+                            ifTrue:[(oldSize + 1) min:100]
+                            ifFalse:[(oldSize-1) max:4]).
     self font:newFont.
 
     "Modified: / 27-02-1996 / 00:53:51 / cg"