Fix procedure create_card