diff --git a/ldebug.c b/ldebug.c
index fa88ffbd..ca1f5410 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldebug.c,v 2.10 2004/10/07 17:27:00 roberto Exp roberto $
+** $Id: ldebug.c,v 2.11 2004/12/03 20:35:33 roberto Exp roberto $
 ** Debug Interface
 ** See Copyright Notice in lua.h
 */
@@ -477,7 +477,7 @@ static const char *getobjname (CallInfo *ci, int stackpos, const char **name) {
       }
       case OP_GETUPVAL: {
         int u = GETARG_B(i);  /* upvalue index */
-        *name = getstr(p->upvalues[u]);
+        *name = p->upvalues ? getstr(p->upvalues[u]) : "?";
         return "upvalue";
       }
       case OP_SELF: {