Index: printutils.c
===================================================================
--- printutils.c	(revision 60410)
+++ printutils.c	(working copy)
@@ -144,22 +144,23 @@
     return buff;
 }
 
+#define NENVSTRING 100
 const char *EncodeEnvironment(SEXP x)
 {
-    static char ch[100];
+    static char ch[NENVSTRING];
     if (x == R_GlobalEnv)
-	sprintf(ch, "<environment: R_GlobalEnv>");
+        snprintf(ch, NENVSTRING-1, "<environment: R_GlobalEnv>");
     else if (x == R_BaseEnv)
-	sprintf(ch, "<environment: base>");
+        snprintf(ch, NENVSTRING-1, "<environment: base>");
     else if (x == R_EmptyEnv)
-	sprintf(ch, "<environment: R_EmptyEnv>");
+        snprintf(ch, NENVSTRING-1, "<environment: R_EmptyEnv>");
     else if (R_IsPackageEnv(x))
-	sprintf(ch, "<environment: %s>",
+        snprintf(ch, NENVSTRING-1, "<environment: %s>",
 		translateChar(STRING_ELT(R_PackageEnvName(x), 0)));
     else if (R_IsNamespaceEnv(x))
-	sprintf(ch, "<environment: namespace:%s>",
+        snprintf(ch, NENVSTRING-1, "<environment: namespace:%s>",
 		translateChar(STRING_ELT(R_NamespaceEnvSpec(x), 0)));
-    else sprintf(ch, "<environment: %p>", (void *)x);
+    else snprintf(ch, NENVSTRING-1, "<environment: %p>", (void *)x);
 
     return ch;
 }