diff options
-rw-r--r-- | scheme.scm.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme.scm.c b/scheme.scm.c index 0d987ffa..84e4f40c 100644 --- a/scheme.scm.c +++ b/scheme.scm.c @@ -32,7 +32,7 @@ SCM_DEFINE (make_calendar, "make-calendar", 1, 0, 0, } static SCM scm_from_strbuf(strbuf* s) { - return scm_from_utf8_stringn (s->mem, s->len); + return scm_from_utf8_stringn (s->mem, s->len - 1); } SCM_DEFINE (calendar_get_attr, "calendar-get-attr", 3, 0, 0, |