There are other conventions like:
* set...
* Delay class >> forMilliseconds: aNumber
^ self new setDelay: aNumber forSemaphore: Semaphore new
* initializeFor...
* DynamicMessageImplementor class>>#for:in:
^ self new initializeFor: aMessage in: aClass
* from:to:...
* Bezier2Segment class>>#from:to:via:
^self new from: startPoint to: endPoint via: viaPoint
I dug a bit to produce this script so you can view more yourself...
protocols := (Protocol allInstances select: [ :p | p name = 'instance creation' ]) flatCollect: [ :p | p methods ].
methods := protocols select: [ :m | (m occurrencesOf: $:) > 1 ].
implementors := methods flatCollect: [ :m | m implementors ].
constructorExamples := implementors select: [ :i | (i sourceCode includesAll: 'new') or: [ i sourceCode includesAll: 'basicNew' ] ].
cheers -ben