diff --git a/include/ChangeLog b/include/ChangeLog
index beb78b71f..1348b1334 100644
--- a/include/ChangeLog
+++ b/include/ChangeLog
@@ -1,3 +1,13 @@
+2008-11-14  Tristan Gingold  <gingold@adacore.com>
+
+	* fopen-vms.h (FOPEN_RB): Use a single string to match the
+	standard prototype.
+	(FOPEN_WB): Ditto.
+	(FOPEN_AB): Ditto.
+	(FOPEN_RUB): Ditto.
+	(FOPEN_WUB): Ditto.
+	(FOPEN_AUB): Ditto.
+
 2008-10-21  Alan Modra  <amodra@bigpond.net.au>
 
 	* obstack.h (obstack_finish <!__GNUC__>): Cast result to void *.
diff --git a/include/fopen-vms.h b/include/fopen-vms.h
index da76b7fb5..dde22baaf 100644
--- a/include/fopen-vms.h
+++ b/include/fopen-vms.h
@@ -9,12 +9,12 @@
    the application unable to be configured for both "same" and "binary"
    variant systems.  */
 
-#define FOPEN_RB	"rb","rfm=var"
-#define FOPEN_WB 	"wb","rfm=var"
-#define FOPEN_AB 	"ab","rfm=var"
-#define FOPEN_RUB 	"r+b","rfm=var"
-#define FOPEN_WUB 	"w+b","rfm=var"
-#define FOPEN_AUB 	"a+b","rfm=var"
+#define FOPEN_RB	"rb,rfm=var"
+#define FOPEN_WB 	"wb,rfm=var"
+#define FOPEN_AB 	"ab,rfm=var"
+#define FOPEN_RUB 	"r+b,rfm=var"
+#define FOPEN_WUB 	"w+b,rfm=var"
+#define FOPEN_AUB 	"a+b,rfm=var"
 
 #define FOPEN_RT	"r"
 #define FOPEN_WT 	"w"