(Fstring_match): Fix sign error.

diff --git a/src/search.c b/src/search.c
index ff9eefec9178c847a98f23695dd83f108ea0eee4..7f00688327079b97b70f111af3b5a722d43b8573 100644 (file)
--- a/src/search.c
+++ b/src/search.c
@@ -215,7 +215,7 @@ matched by parenthesis constructs in the pattern.")
       CHECK_NUMBER (start, 2);
       s = XINT (start);
       if (s < 0 && -s <= len)
-       s = len - s;
+       s = len + s;
       else if (0 > s || s > len)
        args_out_of_range (string, start);
     }