diff --git a/lstring.c b/lstring.c
index c265d3d4..ac526838 100644
--- a/lstring.c
+++ b/lstring.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lstring.c,v 1.37 2000/05/24 13:54:49 roberto Exp roberto $
+** $Id: lstring.c,v 1.38 2000/06/12 13:52:05 roberto Exp roberto $
 ** String table (keeps all strings handled by Lua)
 ** See Copyright Notice in lua.h
 */
@@ -37,7 +37,7 @@ void luaS_freeall (lua_State *L) {
 
 static unsigned long hash_s (const char *s, size_t l) {
   unsigned long h = l;  /* seed */
-  size_t step = (l>>6)|1;  /* if string is too long, don't hash all its chars */
+  size_t step = (l>>5)|1;  /* if string is too long, don't hash all its chars */
   for (; l>=step; l-=step)
     h = h ^ ((h<<5)+(h>>2)+(unsigned char)*(s++));
   return h;