diff --git a/ltests.c b/ltests.c
index feef9e52..69b82dd7 100644
--- a/ltests.c
+++ b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 1.119 2002/05/02 13:06:20 roberto Exp roberto $
+** $Id: ltests.c,v 1.120 2002/05/06 19:05:10 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -162,6 +162,18 @@ static char *buildop (Proto *p, int pc, char *buff) {
 }
 
 
+#if 0
+void luaI_printcode (Proto *pt, int size) {
+  int pc;
+  for (pc=0; pc<size; pc++) {
+    char buff[100];
+    printf("%s\n", buildop(pt, pc, buff));
+  }
+printf("-------\n");
+}
+#endif
+
+
 static int listcode (lua_State *L) {
   int pc;
   Proto *p;