--- a/ArrowButton.st	Thu Feb 13 16:52:44 2014 +0100
+++ b/ArrowButton.st	Thu Feb 13 19:22:56 2014 +0100
@@ -1004,7 +1004,7 @@
             orgX := labelOriginX.
             orgY := labelOriginY.
         ] ifTrue:[
-            orgY := height - font height // 2 + font ascent.
+            orgY := height - gc font height // 2 + gc font ascent.
             orgX := width - labelOriginX // 4 - 1.
         ].
 
@@ -1054,6 +1054,6 @@
 !ArrowButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.73 2014-02-04 17:13:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.74 2014-02-13 18:22:56 stefan Exp $'
 ! !