diff --git a/src/stralloc.c b/src/stralloc.c
index c61546d05b8b3d9e82fc655f89f49c39f5eed845..f329e2c65e5829f26e132accfc0c2ad092c05aff 100644
--- a/src/stralloc.c
+++ b/src/stralloc.c
@@ -15,7 +15,7 @@
 
 #include <ctype.h>
 
-RCSID("$Id: stralloc.c,v 1.45 1998/10/15 02:34:37 grubba Exp $");
+RCSID("$Id: stralloc.c,v 1.46 1998/10/15 02:38:49 grubba Exp $");
 
 #define BEGIN_HASH_SIZE 997
 #define MAX_AVG_LINK_LENGTH 3
@@ -91,7 +91,7 @@ static INLINE unsigned INT32 generic_extract (const void *str, int size, int pos
 INLINE unsigned INT32 index_shared_string(struct pike_string *s, int pos)
 {
 #ifdef DEBUG
-  if(pos >= s->len || pos<0) {
+  if(pos > s->len || pos<0) {
     if (s->len) {
       fatal("String index %d is out of range [0 - %d]!\n", pos, s->len-1);
     } else {