semaphores collect: [:sema |
� � � �sema ->
� � � � � � � �(sema pointersTo reject: [:ptr | ptr == arr or: [ptr == semaphores ] ] ) ]

Can you try invoking it on your image , look for those who has an
empty array, which will mean that there is no references to it except
semaphore table itself.