1 files changed, 2 insertions, 0 deletions
diff --git a/byterun/sys.c b/byterun/sys.c
index 97897d26e..313912706 100644
--- a/byterun/sys.c
+++ b/byterun/sys.c
@@ -27,6 +27,7 @@
 #include <unistd.h>
 #endif
 #include "alloc.h"
+#include "debugger.h"
 #include "fail.h"
 #include "instruct.h"
 #include "mlvalues.h"
@@ -90,6 +91,7 @@ void sys_error(arg)
 value sys_exit(retcode)          /* ML */
      value retcode;
 {
+  debugger(PROGRAM_EXIT);
 #ifdef HAS_UI
   ui_exit(Int_val(retcode));
 #else