sittiri

magmaSession
	"We lazily allocate a session from the pool and let the pool be the finalizer."

	^magmaSession ifNil: 
			[| pool name | 
			currentUser ifNotNilDo: [:user | name := user name].
			pool := Q2MagmaSessionPool current.
			magmaSession := pool getSession.
			self 
				toFinalizeSend: #releaseSession:
				to: pool
				with: magmaSession.
			name ifNotNil: [ self currentUserName: name].
			magmaSession]