fix a quoting error

related to PR 13716

collects/racket/contract/private/struct-dc.rkt

@@ -209,7 +209,7 @@
          v]
         [else
          (unless (pred? v)
-           (raise-blame-error blame v '(expected: "~a" given: "~e")
+           (raise-blame-error blame v '(expected: "~a?" given: "~e")
                               (base-struct/dc-struct-name ctc)
                               v))
          (let loop ([subcontracts (base-struct/dc-subcontracts ctc)]
@@ -815,7 +815,7 @@
   
   #`(build-struct/dc (list #,@structs)
                      #,(list-ref info 2)
-                     'struct-id
+                     '#,struct-id
                      (quote-module-name)
                      '#,struct-id
                      #,struct/c?))

collects/tests/racket/contract-test.rktl

@@ -9921,6 +9921,18 @@
             ((flat-contract-predicate (struct/c doll 'center)) (doll 'not-center-center))))
    '(#t #f))
   
+  (contract-error-test
+   'struct/c17
+   #'(let ()
+       (struct foo (v))
+       (contract (struct/c foo number?)
+                 #f
+                 'pos
+                 'neg))
+   (λ (x)
+     (and (exn:fail:contract:blame? x)
+          (regexp-match #rx"promised: foo?" (exn-message x)))))
+  
 
 ;
 ;