diff --git a/scheme/lib/url.scm b/scheme/lib/url.scm
index f17eba6..2446467 100644
--- a/scheme/lib/url.scm
+++ b/scheme/lib/url.scm
@@ -61,16 +61,16 @@
 
 	     (colon2 (string-index uhs #\: (or at 0))))	; Host:port colon, if any.
 	(make-server (if at
-			   (unescape-uri uhs 0 (or colon1 at))
-			   (server-user default))
-		       (if colon1
-			   (unescape-uri uhs (+ colon1 1) at)
-			   (server-password default))
-		       (unescape-uri uhs (if at (+ at 1) 0)
-				     (or colon2 uhs-len))
-		       (if colon2
-			   (unescape-uri uhs (+ colon2 1) uhs-len)
-			   (server-port default))))
+			 (unescape-uri uhs 0 (or colon1 at))
+			 (server-user default))
+		     (if colon1
+			 (unescape-uri uhs (+ colon1 1) at)
+			 (server-password default))
+		     (unescape-uri uhs (if at (+ at 1) 0)
+				   (or colon2 uhs-len))
+		     (if colon2
+			 (unescape-uri uhs (+ colon2 1) uhs-len)
+			 (server-port default))))
 
       (fatal-syntax-error "URL must begin with //..." path)))