diff --git a/ChangeLog.n b/ChangeLog.n
index 6848d96124198c0db46dac14756012e9a4049c23..296928474545ab43634c91d5a7e7de045a23f940 100644
--- a/ChangeLog.n
+++ b/ChangeLog.n
@@ -3,6 +3,11 @@
 don't forget to change the version in utils/packages.lisp if you do anything
 user visible.
 *******************************************************************************
+2009-09-09  Andreas Fuchs  <afuchs@franz.com>
+
+	* tk-silica/xt-graphics.lisp: Fix vertical alignment offset calculation for :bottom
+	  and :center. (spr36162)
+
 2009-09-09  Andreas Fuchs  <afuchs@franz.com>
 
 	* tk-silica/xt-silica.lisp: Try to query fonts before loading them, as we get
@@ -13,6 +18,7 @@ user visible.
 	* tk-silica/xt-graphics: Make sure that drawing rotated text plays nice with
 	  :align-x and :align-y. These are relative to the text baseline, which may be
 	  rotated, so compute bounding box and text offset after the rotation.
+	  (spr36162)
 
 2009-08-12  Andreas Fuchs  <afuchs@franz.com>
 
diff --git a/tk-silica/xt-graphics.lisp b/tk-silica/xt-graphics.lisp
index 27c1f602d19fdd78dcfc768e6ea4e34a51753a9f..8ade736606bff2a523a536a705075807aa578f6b 100644
--- a/tk-silica/xt-graphics.lisp
+++ b/tk-silica/xt-graphics.lisp
@@ -1502,9 +1502,8 @@
             (:center (floor width 2))
             (:left 0))
           (ecase align-y
-            (:bottom (- height baseline))
-            (:center (- (floor height 2)
-                        baseline))
+            (:bottom (- baseline height))
+            (:center (- baseline (floor height 2)))
             (:baseline 0)
             (:top baseline))))