diff --git a/bugs b/bugs
index c9429268..f7b11a23 100644
--- a/bugs
+++ b/bugs
@@ -259,3 +259,8 @@ Thu Feb  1 11:55:45 EDT 2001
 Fri Feb  2 14:06:40 EDT 2001
 >> «while 1 dostring[[print('hello\n')]] end» never reclaims memory
 (by Andrew Paton; since 4.0b)
+
+** lbaselib.c
+Tue Feb  6 11:57:13 EDT 2001
+>> ESC (which starts precompiled code) in C is \33, not \27
+(by Edgar Toernig and lhf; since 4.0b)
diff --git a/lbaselib.c b/lbaselib.c
index 17ce4506..0599d08b 100644
--- a/lbaselib.c
+++ b/lbaselib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbaselib.c,v 1.20 2001/01/31 19:53:01 roberto Exp roberto $
+** $Id: lbaselib.c,v 1.21 2001/02/02 19:02:40 roberto Exp roberto $
 ** Basic library
 ** See Copyright Notice in lua.h
 */
@@ -284,7 +284,7 @@ static int luaB_dostring (lua_State *L) {
   int oldtop = lua_gettop(L);
   size_t l;
   const char *s = luaL_check_lstr(L, 1, &l);
-  if (*s == '\27')  /* binary files start with ESC... */
+  if (*s == '\33')  /* binary files start with ESC... */
     lua_error(L, "`dostring' cannot run pre-compiled code");
   return passresults(L, lua_dobuffer(L, s, l, luaL_opt_string(L, 2, s)), oldtop);
 }