print token in error msg for unknown hash object

* module/ice-9/read.scm (read-number-and-radix): modified

1 files changed, 1 insertions, 1 deletions

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 3b8fd3537..54de88803 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -544,7 +544,7 @@
   (define (read-number-and-radix ch)
     (let ((tok (string-append "#" (read-token ch))))
       (or (string->number tok)
-          (error "unknown # object" tok))))
+          (error "unknown # object: ~S" tok))))
 
   (define (read-extended-symbol)
     (define (next-not-eof)