rem: scheme_make_immutable_sized_utf8_string((char *)name, -1),
add: scheme_make_immutable_sized_utf8_string(name ? (char *)name : "ssl", -1),
context: Scheme_Input_Port *make_sslin_port(SSL *ssl, struct sslplt *wrapper, const char *name){  return scheme_make_input_port(ssl_input_port_type, wrapper, 				scheme_make_immutable_sized_utf8_string((char *)name, -1),				ssl_get_string, 				NULL, 				scheme_progress_evt_via_get,				scheme_peeked_read_via_get,				sslin_char_ready, sslin_close, 				sslin_need_wakeup, 1);}