Not that it makes much of a difference, but i guess the following code
might work slightly better:
r[(substring(array_dims(r), strpos(array_dims(r), ':') + 1,
(length(array_dims(r)) - strpos(array_dims(r), ':')) - 1))::int]
Regards
Erwin Brandstetter
--
no z in my mail.