diff --git a/syndicate/dataspace.rkt b/syndicate/dataspace.rkt index d19b127..f359cd8 100644 --- a/syndicate/dataspace.rkt +++ b/syndicate/dataspace.rkt @@ -259,7 +259,7 @@ (when (pair? parent-fid) (define pf (lookup-facet ds parent-fid)) - (when pf (set-facet-children! (set-remove (facet-children pf) fid)))) + (when pf (set-facet-children! pf (set-remove (facet-children pf) fid)))) (hash-remove! (dataspace-facets ds) fid)