Class String

find: substr

   1 to: (self size - substr size + 1) do: 

      [:i | (self from: i size: substr size) = substr ifTrue: [ ^ i] ].

   ^ nil