diff -Naur R-2.8.1/src/library/grDevices/src/devPS.c R-2.8.1.tpg/src/library/grDevices/src/devPS.c
--- R-2.8.1/src/library/grDevices/src/devPS.c	2008-12-12 11:33:17.000000000 +0000
+++ R-2.8.1.tpg/src/library/grDevices/src/devPS.c	2008-12-22 21:06:16.000000000 +0000
@@ -2484,8 +2484,8 @@
 	char *name = cidfonts->cidfamily->cidfonts[0]->name;
 	fprintf(fp, "%%%%IncludeResource: CID fake Bold font %s\n", name);
 	fprintf(fp, "/%s-Bold\n/%s /CIDFont findresource\n", name, name);
-	fprintf(fp, CIDBoldFontStr1);
-	fprintf(fp, CIDBoldFontStr2);
+	fprintf("%s", fp, CIDBoldFontStr1);
+	fprintf("%s", fp, CIDBoldFontStr2);
 	for (i = 0; i < 4 ; i++) {
 	    char *fmt = NULL /* -Wall */;
 	    fprintf(fp, "%%%%IncludeResource: CID font %s-%s\n", name,
diff -Naur R-2.8.1/src/main/sprintf.c R-2.8.1.tpg/src/main/sprintf.c
--- R-2.8.1/src/main/sprintf.c	2008-09-21 22:05:26.000000000 +0000
+++ R-2.8.1.tpg/src/main/sprintf.c	2008-12-22 20:48:33.000000000 +0000
@@ -176,7 +176,7 @@
 			if (has_star)
 			    sprintf(bit, fmt, star_arg);
 			else
-			    sprintf(bit, fmt);
+			    sprintf("%s", bit, fmt);
 		    } else {
 			if(nthis < 0) {
 			    if (cnt >= nargs) error(_("too few arguments"));