You can find some hints in the book of kent Beck Best smalltalk practices.
He stresses the idea to have recognizable block. I like the following. Damien Pollet did Gutenberg a new pretty printer for squeak. Giving him feedback is the best way to see it improved.
fooMethod "my comment"
(self foo) ifTrue: [ self bar ]
barMethod "my comment"
(self foo) ifTrue: [ self bar. self grumbleAtBit. self done ] ifFalse: []
...