diff --git a/asdf-install.lisp b/asdf-install.lisp
index b66a5d8b6b8e18090203e24f9d3f3b65afded4ab..9e72cbb4f5a6397cd1c855a2f681280840229c37 100644
--- a/asdf-install.lisp
+++ b/asdf-install.lisp
@@ -137,10 +137,10 @@ an immediate concern
 
 (defun download (package-name-or-url file-name)
   (let ((url
-	 (if (string-equal package-name-or-url "http://"
-			   :end1 7)
+	 (if (= (mismatch package-name-or-url "http://") 7)
 	     package-name-or-url
-	     (format nil "http://www.cliki.net/~A?download" package-name))))
+	     (format nil "http://www.cliki.net/~A?download"
+		     package-name-or-url))))
     (destructuring-bind (response headers stream)
 	(block got
 	  (loop