diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index f1d5f88..2b23b6a 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -454,7 +454,7 @@ (define (stop-facet! ds f stop-script) (define ac (facet-actor f)) - (with-current-facet [ds ac f #t] ;; run in parent context wrt terminating facet + (with-current-facet [ds ac (facet-parent f) #t] ;; run in parent context wrt terminating facet (schedule-script! ds ac (lambda () (terminate-facet! ds f) (schedule-script! ds ac stop-script)))))