diff --git a/racket/collects/racket/private/promise.rkt b/racket/collects/racket/private/promise.rkt
index f916425194..c854f1052d 100644
--- a/racket/collects/racket/private/promise.rkt
+++ b/racket/collects/racket/private/promise.rkt
@@ -277,7 +277,7 @@
   (lambda (this)
     (let ([name (running-name this)])
       (if name
-        (error 'force "reentrant promise ~.s" name)
+        (error 'force "reentrant promise `~.s'" name)
         (error 'force "reentrant promise"))))
   #:property prop:custom-write
   (lambda (this port write?)