From 3fefe33c2ce908cf1dc4fb7b17ea332d402ea258 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Sat, 8 Oct 2011 03:02:20 -0400
Subject: [PATCH] Typo in error message detection (cherry picked from commit
 7d1b00ff697eda9309f29195fb65723320a86ebd)

---
 collects/meta/web/download/mirror-link.rkt | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/meta/web/download/mirror-link.rkt b/collects/meta/web/download/mirror-link.rkt
index b5a8e5cfb3..245240e647 100644
--- a/collects/meta/web/download/mirror-link.rkt
+++ b/collects/meta/web/download/mirror-link.rkt
@@ -147,10 +147,10 @@ Polling a URL can result in one of four options:
   (define r
     (with-handlers ([exn:fail? exn-message])
       (call/input-url (string->url url) head-impure-port check-contents)))
-  (if (boolean? r)
-    r
+  (if (string? r)
     (begin (eprintf "WARNING: failure getting http info for ~a (~a)\n" url r)
-           #f)))
+           #f)
+    r))
 
 (define (verify-ftp url)
   (define-values [host port? path]