diff --git a/P3/P3Client.class.st b/P3/P3Client.class.st index a012d8c..f1d9835 100644 --- a/P3/P3Client.class.st +++ b/P3/P3Client.class.st @@ -144,13 +144,15 @@ P3Client >> clearTextPasswordMessage [ P3Client >> close [ "Cleanly close my connection with the server" - connection ifNotNil: [ + connection ifNotNil: [ + self logDisconnected. [ self writeMessage: #[] tag: $X. connection close ] on: Error do: [ ]. + self clearSession. - connection := nil. - self logDisconnected ] + connection := nil + ] ] { #category : 'accessing' }