* srfi-13.c (scm_string_copyS): Fixed nasty bug.

diff --git a/srfi/ChangeLog b/srfi/ChangeLog
index b64ea9d..9e8779c 100644 (file)
--- a/srfi/ChangeLog
+++ b/srfi/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-08  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
+
+       * srfi-13.c (scm_string_copyS): Fixed nasty bug.
+
 2001-05-05  Rob Browning  <rlb@cs.utexas.edu>
 
        * Makefile.am (srfi_DATA): added srfi-19.scm.

diff --git a/srfi/srfi-13.c b/srfi/srfi-13.c
index e7fe76c..41adb59 100644 (file)
--- a/srfi/srfi-13.c
+++ b/srfi/srfi-13.c
@@ -379,7 +379,7 @@ SCM_DEFINE (scm_string_copyS, "string-copy", 1, 2, 0,
   SCM_VALIDATE_SUBSTRING_SPEC_COPY (1, str, cstr,
                                    2, start, cstart,
                                    3, end, cend);
-  return scm_makfromstr (cstr + start, cend - cstart, 0);
+  return scm_makfromstr (cstr + cstart, cend - cstart, 0);
   
 }
 #undef FUNC_NAME