summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/socket.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index ddc9b0ab0..964f72c45 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -1482,7 +1482,7 @@ SCM_DEFINE (scm_send, "send", 2, 1, 0,
fd = SCM_FPORT_FDES (sock);
len = scm_i_string_length (message);
- src = scm_i_string_writable_chars (message);
+ src = scm_i_string_chars (message);
SCM_SYSCALL (rv = send (fd, src, len, flg));
scm_i_string_stop_writing ();