rem: scheme_make_immutable_sized_utf8_string((char *)name, -1),
add: scheme_make_immutable_sized_utf8_string(name ? (char *)name : "ssl-output", -1),
context: static Scheme_Output_Port *make_sslout_port(SSL *ssl, struct sslplt *data, const char *name){  return scheme_make_output_port(ssl_output_port_type, data, 				 scheme_make_immutable_sized_utf8_string((char *)name, -1),				 scheme_write_evt_via_write,				 write_string, 				 sslout_char_ready, sslout_close, 				 sslout_need_wakeup, 				 NULL, NULL, 1);}