diff --git a/src/module.c b/src/module.c
index 12b68fa4c7fc7e66d30d559ecd71570c7efe1a8c..80d4de361230013c13ffb18d13d3598fca93a1b2 100644
--- a/src/module.c
+++ b/src/module.c
@@ -14,10 +14,11 @@
 #include "stralloc.h"
 #include "object.h"
 #include "mapping.h"
+#include "program_id.h"
 
 #include "modules/modlist_headers.h"
 
-RCSID("$Id: module.c,v 1.10 1999/02/10 21:46:44 hubbe Exp $");
+RCSID("$Id: module.c,v 1.11 2000/07/07 02:38:08 hubbe Exp $");
 
 typedef void (*modfun)(void);
 
@@ -40,6 +41,7 @@ void init_modules(void)
   unsigned int e;
 
   start_new_program();
+  Pike_compiler->new_program->id=PROG___BUILTIN_ID;
 
   for(e=0;e<NELEM(module_list);e++)
   {
diff --git a/src/program_id.h b/src/program_id.h
index 5ba9dc14f74cd8fc314dba36de9c16e8deacdac4..6f42c604514e3fa13e096ee7a84da2f5ccbf7ca4 100644
--- a/src/program_id.h
+++ b/src/program_id.h
@@ -31,5 +31,10 @@
 #define tObjImpl_PARSER_HTML                  "\003\000\000\000\000\010"
 #define   tObjIs_PARSER_HTML                  "\003\001\000\000\000\010"
 
+#define     PROG___BUILTIN_ID                                       011
+#define tObjImpl___BUILTIN                    "\003\000\000\000\000\011"
+#define   tObjIs___BUILTIN                    "\003\001\000\000\000\011"
+
+
 
 #endif