Class String

withoutStartingSpaces

  | i |

  i <- 1.

  [(self at: i) = $ ] whileTrue: [i <- i + 1].

  ^ self from: i to: self size