* commons/common2.ml: fix with_format