1 files changed, 1 insertions, 0 deletions
diff --git a/unwind.c b/unwind.c
index 34e1126e..9b5b26e2 100644
--- a/unwind.c
+++ b/unwind.c
@@ -684,6 +684,7 @@ val uw_defer_warning(val args)
 
 val uw_register_tentative_def(val tag)
 {
+  uw_purge_deferred_warning(tag);
   push(tag, &tentative_defs);
   return nil;
 }