diff --git a/basis/io/monitors/recursive/recursive.factor b/basis/io/monitors/recursive/recursive.factor index 2681f5520b..39701fef01 100755 --- a/basis/io/monitors/recursive/recursive.factor +++ b/basis/io/monitors/recursive/recursive.factor @@ -100,7 +100,7 @@ M: recursive-monitor dispose* ready>> ?promise ?linked drop ; : ( path mailbox -- monitor ) - '[ _ _ + [ [ absolute-path ] dip recursive-monitor new-monitor |dispose H{ } clone >>children