fix get-pool-accessor defun