ADDED: library(sandbox): current_op/3 is safe.