text: Add a little extra space on the right.

1 files changed, 2 insertions, 1 deletions

diff --git a/pict.scm b/pict.scm
index 23828eb..c43c49a 100644
--- a/pict.scm
+++ b/pict.scm
@@ -826,7 +826,8 @@ appearance."
           ;; XXX sometimes closing the handle fails...
           (false-if-exception (rsvg-handle-close h))
           (make-pict `(svg (@ (height ,(format #f "~apx" full-height))
-                              (width ,width)
+                              ;; TODO: for some reason the width is insufficient
+                              (width ,(format #f "~apx" (+ width 5)))
                               (x 0)
                               (y 0))
                            ,text-tag)))))))