From 4759e25019da30783f295090f4ad7a26aca1afd7 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 14 Jan 2009 13:02:03 +0000
Subject: [PATCH] fix vector-copy! bug (PR 10026)

svn: r13111
---
 src/mzscheme/src/string.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/string.c b/src/mzscheme/src/string.c
index 0623256870..1827706d9e 100644
--- a/src/mzscheme/src/string.c
+++ b/src/mzscheme/src/string.c
@@ -968,7 +968,7 @@ void scheme_get_substring_indices(const char *name, Scheme_Object *str,
 
   if (SCHEME_VECTORP(str))
     len = SCHEME_VEC_SIZE(str);
-  if (SCHEME_CHAR_STRINGP(str))
+  else if (SCHEME_CHAR_STRINGP(str))
     len = SCHEME_CHAR_STRTAG_VAL(str);
   else
     len = SCHEME_BYTE_STRTAG_VAL(str);