diff --git a/sprintf.rkt b/sprintf.rkt
index aca4776..87f89de 100644
--- a/sprintf.rkt
+++ b/sprintf.rkt
@@ -30,12 +30,12 @@
                (precision (if (eq? precision #f) 0
                               (if (eq? kind 'd)
                                   0
-                                  precision)))
+                                  (list '= precision))))
                (base (if (eq?  kind 'x) 16 10))
                )
           (when (eq? kind 's)
             (error "argument is a number, but string expected"))
-          (let ((r (~r arg #:pad-string pad-str #:min-width min-width #:precision (list '= precision) #:base base)))
+          (let ((r (~r arg #:pad-string pad-str #:min-width min-width #:precision precision #:base base)))
             (if (eq? adjust 'left)
                 (let ((r-trim (string-trim r)))
                   (string-append r-trim