Index: tests/natools-cron-tests.adb
==================================================================
--- tests/natools-cron-tests.adb
+++ tests/natools-cron-tests.adb
@@ -169,22 +169,29 @@
       Total : constant Duration := 0.01;
       Log : aliased Bounded_String (256);
    begin
       declare
          Test_Entry : Cron_Entry;
+         Guard_Entry : Cron_Entry;
       begin
          Test_Entry.Set (Total / 8, Long_Callback'
            (Backend => Log'Access,
             Open => '(',
             Close => ')',
             Wait => Total / 4));
+         Guard_Entry.Set (Total / 2, Test_Callback'
+           (Backend => Log'Access,
+            Symbol => '.'));
+
          delay Total / 4;
-      end;
+
+         Check (Test, "(", Get (Log), "Before wait");
+         Test_Entry.Reset;
 
-      Check (Test, "(", Get (Log), "Before wait");
-      delay Total / 2;
-      Check (Test, "()", Get (Log), "After wait");
+         delay Total / 2;
+         Check (Test, "().", Get (Log), "After wait");
+      end;
    exception
       when Error : others => Test.Report_Exception (Error);
    end Delete_While_Busy;