fix an http bug

spl/httpserver/base.spl

@@ -64,7 +64,7 @@ construct net:http:server:Request {
 				4 stop
 			0 } pop
 		}
-		this:head buf:sub<0 found> aadd:to-str this:=head
+		this:head buf:sub<0 found>:replace<"\r" :to-bytes 0 banew> aadd:to-str this:=head
 		buf:sub<found 4 + buf:len> this:=body
 		this
 	}