From 6c4650ebbd1ba293c0aa5cc5650b7dc6733ffa18 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 20 Dec 2013 15:47:27 -0700
Subject: [PATCH] Remove secret information from pkg error messages

---
 racket/collects/pkg/util.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/collects/pkg/util.rkt b/racket/collects/pkg/util.rkt
index b8ffd071ed..f96cb61ac0 100644
--- a/racket/collects/pkg/util.rkt
+++ b/racket/collects/pkg/util.rkt
@@ -98,7 +98,9 @@
         (unless api-bs
           (error 'package-url->checksum
                  "could not connect to GitHub\n URL: ~a"
-                 (url->string api-u)))
+                 (url->string 
+                  (struct-copy url api-u
+                               [query query]))))
         (define branches
           (read-json (open-input-bytes api-bs)))
         (unless (and (list? branches)