Merge pull request rebol#113 (gchiu/patch-2) into community

* gchiu/patch-2:
  do-redirect expects an absolute url so create one

src/mezz/prot-http.r

@@ -334,6 +334,9 @@ http-response-headers: context [
 do-redirect: func [port [port!] new-uri [url! string! file!] /local spec state] [
 	spec: port/spec
 	state: port/state
+	if #"/" = first new-uri [
+		new-uri: to url! ajoin [spec/scheme "://" spec/host new-uri]
+	]
 	new-uri: construct/with decode-url new-uri port/scheme/spec
 	if new-uri/scheme <> 'http [
 		state/error: make-http-error {Redirect to a protocol different from HTTP not supported}