Bug when open StOpenFileOrDirectoryPresenter with a memory fileSystem

[moufort]

when we do this :

memory := FileSystem memory workingDirectory.
disque := FileLocator documents.

StOpenDirectoryPresenter new
		                 openFolder: memory;
		                 extent: 800 @ 800;
		                 open

we have :

StOpenFilePresenter also bug