removeAt: index (index between: 1 and: current) ifFalse: [ self error: 'invalid index for removeAt:']. current <- current - 1. index to: current do: [:i | values at: i put: (values at: i+1)]