Y si quisiese pasarle el criterio de orden? Como se lo paso?

Pues sería tal cual como el ejemplo de la página 205 del libro, instanciando a la SortedCollection con el mensaje sortBlock: unBloque en lugar de con new. Por ejemplo:

| peliculas pelicula1 pelicula2 pelicula3 |

pelicula1 := Pelicula new.
pelicula1 establecerNombre: 'Jackie Brown'.
pelicula1 establecerAnio: 1997.

pelicula2 := Pelicula new.
pelicula2 establecerNombre: 'Kill Bill'.
pelicula2 establecerAnio: 2003.

pelicula3 := Pelicula new.
pelicula3 establecerNombre: 'Reservoir Dogs'.
pelicula3 establecerAnio: 1992.

peliculas := SortedCollection sortBlock: [ :p1 :p2 | p1 obtenerAnio <= p2 obtenerAnio ].

peliculas add: pelicula1; add: pelicula2; add: pelicula3.

Transcript clear.
peliculas do: [ :pelicula | Transcript show: pelicula nombre; cr. ].

Este tipo de cosas las veremos dentro de un par de clases y están fuera del alcance del TP0. Si te da curiosidad podés probar este otro ejemplo.

Saludos,

Tomás