diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm index 1bba9c8a8b8..9c0310aef89 100644 --- a/src/core/IO/Path.pm +++ b/src/core/IO/Path.pm @@ -329,7 +329,7 @@ my class IO::Path is Cool does IO { } } $resolved = $sep unless nqp::chars($resolved); - IO::Path!new-from-absolute-path($resolved,:$!SPEC,:CWD(self)); + IO::Path!new-from-absolute-path($resolved,:$!SPEC,:CWD($sep)); } method parent(IO::Path:D:) { # XXX needs work