Fix bug in "scale".

1 files changed, 1 insertions, 1 deletions

diff --git a/pict.scm b/pict.scm
index be95ef0..db5df15 100644
--- a/pict.scm
+++ b/pict.scm
@@ -299,7 +299,7 @@ strings that are built from the list of attributes LST."
             (class "scale")
             (x 0)
             (y 0))
-         ,((transform-modifier "scale" (number->string factor))
+         ,((transform-modifier "scale" (const (number->string factor)))
            `(g (@ (class "transform"))
                ,(pict-sxml pict))))))