fixed procedure? in apply-prim-proc; tests pass 100%