/* prefix */
	if (cob_source_file) {
		fprintf (stderr, "%s:%d: ", cob_source_file, cob_source_line);
	}
	fputs ("libcob: ", stderr);

	/* body */
	va_start (ap, fmt);
	vfprintf (stderr, fmt, ap);
	va_end (ap);

	/* postfix */
	fputs ("\n", stderr);
	fflush (stderr);

	/* call stack */
	while ( cob_module ) {
		fprintf (stderr, "Called from %s", cob_module->cob_name);
		if (cob_source_file) {
			fprintf (stderr, ", %s:%d: \n", cob_module->cob_source_file, cob_module->cob_source_line);
		}
		fprintf (stderr, "\n");
		cob_module = cob_module->next;
	}