diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index e702390..ebb6a57 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -486,10 +486,10 @@ ;; Run stop-scripts after terminating children. This means that ;; children's stop-scripts run before ours. - (schedule-script! ac (lambda () - (with-current-facet [f] - (for [(script (in-list (reverse (facet-stop-scripts f))))] - (script))))) + (push-script! ac (lambda () + (with-current-facet [f] + (for [(script (in-list (reverse (facet-stop-scripts f))))] + (script))))) (retract-facet-assertions-and-subscriptions! f)