diff --git a/collects/racket/contract/private/blame.rkt b/collects/racket/contract/private/blame.rkt
index 49106a403c..abca756d4c 100644
--- a/collects/racket/contract/private/blame.rkt
+++ b/collects/racket/contract/private/blame.rkt
@@ -215,13 +215,13 @@
   (define blaming-line
     (cond
       [(null? (cdr blame-parties))
-       (format " blaming: ~a" (car blame-parties))]
+       (format " blaming: ~a" (convert-blame-singleton (car blame-parties)))]
       [else
        (apply
         string-append 
         " blaming multiple parties:"
         (for/list ([party (in-list blame-parties)])
-          (format "\n  ~a" party)))]))
+          (format "\n  ~a" (convert-blame-singleton party))))]))
   
   (define from-line 
     (if (blame-original? blme)
diff --git a/collects/racket/contract/private/provide.rkt b/collects/racket/contract/private/provide.rkt
index 30501c632c..44cf64d0db 100644
--- a/collects/racket/contract/private/provide.rkt
+++ b/collects/racket/contract/private/provide.rkt
@@ -18,7 +18,6 @@
                                 [make-module-identifier-mapping make-free-identifier-mapping]
                                 [module-identifier-mapping-get free-identifier-mapping-get]
                                 [module-identifier-mapping-put! free-identifier-mapping-put!]))
-         setup/path-to-relative
          "arrow.rkt"
          "base.rkt"
          "guts.rkt"
@@ -91,7 +90,7 @@
                                    #`(contract contract-id
                                                id
                                                pos-module-source
-                                               (maybe-call-path->relative-string/library (quote-module-name))
+                                               (quote-module-name)
                                                'external-id
                                                #,srcloc-code))))))])
                    (when key (hash-set! saved-id-table key lifted-id))
@@ -121,12 +120,6 @@
          [external-id (provide/contract-transformer-external-id self)])
      (provide/contract-transformer contract-id id external-id new-pos (make-hasheq)))))
 
- 
-(define (maybe-call-path->relative-string/library x)
-  (if (path? x)
-      (path->relative-string/library x)
-      x))
-
 
 (define-for-syntax (true-provide/contract provide-stx just-check-errors? who)
   (syntax-case provide-stx ()