From ce3769fb6ff296b666dc0af001ac5345dddd9c2a Mon Sep 17 00:00:00 2001
From: "Greg J. Badros" <gjb@cs.washington.edu>
Date: Tue, 14 Dec 1999 01:23:45 +0000
Subject: [PATCH] * strings.c: Fixed mistaken default value in
 scm_make_shared_substring; thanks Eric Moore!

---
 libguile/strings.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/strings.c b/libguile/strings.c
index d245ad9c9..2a02fcb3d 100644
--- a/libguile/strings.c
+++ b/libguile/strings.c
@@ -369,7 +369,7 @@ defaults to the end of @var{str}.  The shared substring returned by
 
   SCM_VALIDATE_ROSTRING(1,str);
   SCM_VALIDATE_INT_DEF_COPY(2,frm,0,f);
-  SCM_VALIDATE_INT_DEF_COPY(3,to,0,t);
+  SCM_VALIDATE_INT_DEF_COPY(3,to,SCM_ROLENGTH(str),t);
 
   SCM_ASSERT_RANGE (2,frm,(f >= 0));
   SCM_ASSERT_RANGE (3,to, (f <= t) && (t <= SCM_ROLENGTH (str)));