This method would use the same methods in MetacelloPlatform and be written as:

```Smalltalk
cacheDirectory := self cacheDirectory.
projectDirectory := MetacelloPlatform current  directoryFromPath: projectPath relativeTo: cacheDirectory.
MetacelloPlatform current ensureDirectoryExists: projectDirectory.
^projectDirectory
```