--- cvs-1.12.9/src/main.c.orig	2004-08-06 20:40:24.000000000 +0200

+++ cvs-1.12.9/src/main.c	2004-08-06 21:14:54.000000000 +0200

@@ -686,13 +686,6 @@

     if (argc < 1)

 	usage (usg);

 

-    if (readonlyfs && !really_quiet) {

-	error (0, 0,

-	       "WARNING: Read-only repository access mode selected via `cvs -R'.\n\

-Using this option to access a repository which some users write to may\n\

-cause intermittent sandbox corruption.");

-    }

-

     /* Look up the command name. */

 

     cvs_cmd_name = argv[0];

@@ -714,6 +707,15 @@

     else

 	cvs_cmd_name = cm->fullname;	/* Global pointer for later use */

 

+    /* issue a warning when access is read-only */

+    if (readonlyfs && !really_quiet &&

+        strcmp (cvs_cmd_name, "pserver") != 0) {

+	error (0, 0,

+	       "WARNING: Read-only repository access mode selected via `cvs -R'.\n\

+Using this option to access a repository which some users write to may\n\

+cause intermittent sandbox corruption.");

+    }

+

     if (help)

     {

 	argc = -1;		/* some functions only check for this */