diff options
-rw-r--r-- | libguile/strings.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index d28f5ad0b..50adee817 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -568,7 +568,7 @@ scm_i_string_writable_wide_chars (SCM str) if (!scm_i_is_narrow_string (str)) return STRINGBUF_WIDE_CHARS (buf) + start; else - scm_misc_error (NULL, "Invalid read access of chars of narrow string: ~s", + scm_misc_error (NULL, "Invalid write access of chars of narrow string: ~s", scm_list_1 (str)); } |