diff --git a/ldb/core.h b/ldb/core.h
index 6ce4b5fd6050eb20090abc118d54cbab8876b76c..f246e64285f1ccf1d843079cca47be9949042081 100644
--- a/ldb/core.h
+++ b/ldb/core.h
@@ -23,7 +23,6 @@ struct machine_state {
     lispobj *csp;
     lispobj *fp;
     lispobj *bsp;
-    long flags;
     char *number_stack_start;
 
     long sigcontext_page;
diff --git a/ldb/save.c b/ldb/save.c
index baff7963663c11fa161ecf30aba447373c4dbc4a..4177f27188c0f0799ee4046458f4b5c24b027e43 100644
--- a/ldb/save.c
+++ b/ldb/save.c
@@ -103,7 +103,6 @@ struct sigcontext *context;
     ms.csp = current_control_stack_pointer;
     ms.fp = current_control_frame_pointer;
     ms.bsp = current_binding_stack_pointer;
-    ms.flags = current_flags_register;
     ms.number_stack_start = number_stack_start;
     ms.sigcontext_page = write_bytes((char *)context, sizeof(struct sigcontext));
     ms.control_stack_page = write_stack("Control",
@@ -237,7 +236,6 @@ struct machine_state *ms;
     current_control_stack_pointer = ms->csp;
     current_control_frame_pointer = ms->fp;
     current_binding_stack_pointer = ms->bsp;
-    current_flags_register = ms->flags;
 
     if (ms->number_stack_start > number_stack_start) {
         fprintf(stderr, "Your environment is too large.  Use ``unsetenv''\n");