diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 5516c2fbb0a7039b2a63c5ebdbe0e0c3253b9676..e105c4d1cdeaa996a7689df3f91a41860677d2b9 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-03  Tristan Gingold  <gingold@adacore.com>
+
+	* config/vms/vms.c (vms_patch_builtins): Fix typo.
+
 2011-11-03  Richard Guenther  <rguenther@suse.de>
 
 	PR lto/44965
diff --git a/gcc/config/vms/vms.c b/gcc/config/vms/vms.c
index 44940a3aa3b1aa81d1ead56b0b106ba3548d22ea..ab37f827f8349f054f419e25a290566997807684 100644
--- a/gcc/config/vms/vms.c
+++ b/gcc/config/vms/vms.c
@@ -99,11 +99,11 @@ vms_patch_builtins (void)
   unsigned int i;
 
   /* Fwrite on VMS is non-standard.  */
-  if (builtin_decl_implicit_p (BUILT_IN_WRITE))
-    set_builtin_decl_implicit_p (BUILT_IN_WRITE, false);
+  if (builtin_decl_implicit_p (BUILT_IN_FWRITE))
+    set_builtin_decl_implicit_p (BUILT_IN_FWRITE, false);
 
-  if (builtin_decl_implicit_p (BUILT_IN_WRITE_UNLOCKED))
-    set_builtin_decl_implicit_p (BUILT_IN_WRITE_UNLOCKED, false);
+  if (builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED))
+    set_builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED, false);
 
   /* Define aliases for names.  */
   for (i = 0; i < NBR_CRTL_NAMES; i++)