blur: Fix typo.

1 files changed, 1 insertions, 1 deletions

diff --git a/pict.scm b/pict.scm
index 228aa1d..21fac99 100644
--- a/pict.scm
+++ b/pict.scm
@@ -390,7 +390,7 @@ strings that are built from the list of attributes LST."
         (new-width (+ (pict-width pict) (* 2 radius))))
     (make-pict
      `(svg (@ (width ,new-width)
-              (height ,new-width)
+              (height ,new-height)
               (class "blur"))
            (g (defs
                 (filter