diff --git a/ghc/compiler/prelude/PrelInfo.lhs b/ghc/compiler/prelude/PrelInfo.lhs
index 8a2b746705b76567a9b3fc3afd9fcf2e0a317538..b936b7181b3b5ea3e3456d091afbce1472562ed7 100644
--- a/ghc/compiler/prelude/PrelInfo.lhs
+++ b/ghc/compiler/prelude/PrelInfo.lhs
@@ -30,7 +30,7 @@ module PrelInfo (
 	monadZeroClass_RDR, enumClass_RDR, evalClass_RDR, ordClass_RDR,
 	ioDataCon_RDR, ioOkDataCon_RDR,
 
-	main_NAME, allClass_NAME, ioTyCon_NAME,
+	main_NAME, allClass_NAME, ioTyCon_NAME, ioOkDataCon_NAME,
 
 	needsDataDeclCtxtClassKeys, cCallishClassKeys, cCallishTyKeys, isNoDictClass,
 	isNumericClass, isStandardClass, isCcallishClass, isCreturnableClass
@@ -251,17 +251,17 @@ mkKnownKeyGlobal (Qual mod occ hif, uniq)
 
 allClass_NAME    = mkKnownKeyGlobal (allClass_RDR,   allClassKey)
 ioTyCon_NAME	 = mkKnownKeyGlobal (ioTyCon_RDR,    ioTyConKey)
+ioOkDataCon_NAME = mkKnownKeyGlobal (ioOkDataCon_RDR, ioOkDataConKey)
 main_NAME	 = mkKnownKeyGlobal (main_RDR,	     mainKey)
 
 knownKeyNames :: [Name]
 knownKeyNames
-  = [main_NAME, allClass_NAME, ioTyCon_NAME]
+  = [main_NAME, allClass_NAME, ioTyCon_NAME, ioOkDataCon_NAME]
     ++
     map mkKnownKeyGlobal
     [
 	-- Type constructors (synonyms especially)
-      (ioOkDataCon_RDR,    ioOkDataConKey)
-    , (orderingTyCon_RDR,  orderingTyConKey)
+      (orderingTyCon_RDR,  orderingTyConKey)
     , (rationalTyCon_RDR,  rationalTyConKey)
     , (ratioDataCon_RDR,   ratioDataConKey)
     , (ratioTyCon_RDR,     ratioTyConKey)