diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index 11d57749fcff4c29657a4aa25305b8cbe82689d4..43469027cd4a0942c4909d5758d2f9b03b21a1e3 100644
--- a/ghc/compiler/reader/Lex.lhs
+++ b/ghc/compiler/reader/Lex.lhs
@@ -657,6 +657,7 @@ ifaceKeywordsFM = listToUFM $
         ("__Ux",		ITunfold IAmALoopBreaker),
 	
         ("__ccall",		ITccall (False, False, False)),
+        ("__ccall_GC",		ITccall (False, False, True)),
         ("__dyn_ccall",		ITccall (True,  False, False)),
         ("__dyn_ccall_GC",	ITccall (True,  False, True)),
         ("__casm",		ITccall (False, True,  False)),