Manually fix Pharo Image resolve: issues

fixResolve.st

[ FileLocator localDirectory resolve asAbsolute ] 
	on: Exception 
	do: [ :ex  | SystemResolver classVarNamed: #UserLocalDirectory put: nil ].

(Smalltalk imageDirectory resolve containsReference:  FileLocator localDirectory resolve asAbsolute)
	ifFalse: [ 	OmSessionStore defaultBaseLocator: nil ].

(Smalltalk imageDirectory resolve containsReference:  OmSessionStore defaultBaseLocator resolve asAbsolute)
	ifFalse: [ 	OmSessionStore defaultBaseLocator: nil ].

OmSessionStore allInstances do: [ :o |
	o refresh.
	(Smalltalk imageDirectory resolve containsReference:  o store fileReference asAbsolute)
			ifFalse: [ o instVarNamed: #currentStore put: nil].
		].

(Smalltalk imageDirectory resolve containsReference:  SystemResolver userLocalDirectory resolve asAbsolute)
	ifFalse: [ SystemResolver classVarNamed: #UserLocalDirectory put: nil ].

(Smalltalk imageDirectory resolve = MCDirectoryRepository defaultDirectoryName asFileReference)
	ifFalse: [ MCDirectoryRepository  defaultDirectoryName: nil ].

(Smalltalk imageDirectory resolve = MCCacheRepository cacheDirectory asFileReference)
	ifFalse: [ MCCacheRepository  reset. ]. "MCCacheRepository resetIfInvalid."
			
GTPlayBook cacheDirectory: nil.
(Smalltalk imageDirectory resolve containsReference:  GTPlayBook cacheDirectory resolve asAbsolute)
	ifFalse: [ GTPlayBook cacheDirectory: nil ].
			
(Smalltalk imageDirectory resolve containsReference:  GTPlayBook stashDirectory resolve asAbsolute)
	ifFalse: [ GTPlayBook stashDirectory: nil ].