Use number->string directly; skip dispatch through write-to-string.

diff --git a/src/imail/imail-imap.scm b/src/imail/imail-imap.scm
index d48856a41c1bbf6a8d1398717a179a14af36dbdf..9010ab4874ccf51cba52e0dffe68f4ce7a7478ec 100644 (file)
--- a/src/imail/imail-imap.scm
+++ b/src/imail/imail-imap.scm
@@ -2060,7 +2060,7 @@ USA.
 
 (define (imap-message-cache-specifier message)
   `(,@(imap-folder-cache-specifier (message-folder message))
-    ,(write-to-string (imap-message-uid message))))
+    ,(number->string (imap-message-uid message) #d10)))
 
 (define (imap-message-temporary-directory-pathname message)
   (imap-folder-temporary-directory-pathname (message-folder message)))