Set Alias$SLoadNewSprite SLoad <Obey$Dir>.Contents.loch1_s16
Set Alias$@@OpenDirTemp Filer_OpenDir <Obey$Dir>.Contents
@@OpenDirTemp
UnSet Alias$@@OpenDirTemp
