Index: startup.c
===================================================================
--- byterun/startup.c	(revision 328)
+++ byterun/startup.c	(working copy)
@@ -41,6 +41,7 @@
 #include "interp.h"
 #include "intext.h"
 #include "io.h"
+#include "md5.h"
 #include "memory.h"
 #include "minor_gc.h"
 #include "misc.h"
@@ -444,6 +445,7 @@
 {
   value res;
   char* cds_file;
+  struct MD5Context ctx;
 
   caml_init_ieee_floats();
   caml_init_custom_operations();
@@ -472,6 +474,9 @@
   /* Load the code */
   caml_start_code = code;
   caml_code_size = code_size;
+  caml_MD5Init(&ctx);
+  caml_MD5Update(&ctx, (unsigned char *) caml_start_code, caml_code_size);
+  caml_MD5Final(caml_code_md5, &ctx);
   if (caml_debugger_in_use) {
     int len, i;
     len = code_size / sizeof(opcode_t);