gentoo-overlay/dev-scheme/gauche/files/gauche-rfc.tls.patch

--- a/ext/tls/ssltest-mod.scm
+++ b/ext/tls/ssltest-mod.scm
@@ -53,7 +53,8 @@
      ($ format #t "~a\n" $ regexp-replace-all* line
         #/\.\.\/ssl\// srcpath-replace
         #/openssl /    kicker-replace
-        #/system/      "safe_system")))
+        #/system/      "safe_system"
+        #/(s_server) / "\\1 -4 ")))
 
   (p "#include <errno.h>"
      "int safe_system(const char *commands)"