Actually, Xavier, I've started working on a patch for it.
Have  it working right now basically, just testing it out,
nothing more than adding another case into the switch
located in htsname.c like this:

case 'P':    // protocol
	    *b='\0';
	    int protpos;
	    if (protpos = strstr(adr_complete, "://")) {
		    strncatbuff(b, adr_complete, protpos - 1);
	    } else {
		    strcpybuff(b, "http");
	    }
	    
	    b+=strlen(b);
	    break;

Of course took me a few minutes to try and figure out all
the comments that appear to be in French, seeing as I'm an
american that knows no other spoken languages :)