Question : commit error frm-40509 in 10g

I have a form in 6i. Works fine on saving. But does not save in 10g. I used forms migration assistant to convert it.
Below is my code:
BEGIN
  IF :System.Form_Status = 'CHANGED' THEN
    Commit;
  END IF;
END;
This code is in the save button that is in my footer toolbar block.
Any ideas on why I cannot save in 10g?

Answer : commit error frm-40509 in 10g

What are the block properties in Advanced Database section ?