diff --git a/src/comp/CVPrint.hs b/src/comp/CVPrint.hs
index 100b9368..f2c8c95d 100644
--- a/src/comp/CVPrint.hs
+++ b/src/comp/CVPrint.hs
@@ -287,8 +287,8 @@ instance PVPrint CDefn where
     pvPrint d p (CprimType (IdKind i k)) =
         t"primitive type" <+> pp d i <+> t "::" <+> pp d k
 
-    pvPrint d p (Cforeign i ty oname opnames _) =
-        text "foreign" <+> pvpId d i <+> t "::"
+    pvPrint d p (Cforeign i ty oname opnames ni) =
+        text "foreign" <> (if ni then text " noinline" else empty) <+> pvpId d i <+> t "::"
                 <+> pp d ty
                 <> (case oname of Nothing -> empty; Just s -> text (" = " ++ show s))
                 <> (case opnames of
diff --git a/src/comp/ContextErrors.hs b/src/comp/ContextErrors.hs
index 0519ee94..824a6a77 100644
--- a/src/comp/ContextErrors.hs
+++ b/src/comp/ContextErrors.hs
@@ -464,7 +464,7 @@ handleCtxRedPrimPort pos (vp, reduced_ps) userty =
 handleCtxRedWrapField:: Position -> (VPred, [VPred]) -> FString -> Type -> EMsg
 handleCtxRedWrapField pos (vp, reduced_ps) name userty =
     (pos, EBadIfcType (getFString name)
-     "This method uses types that are not in the Bits or SplitPorts typeclass.")
+     "This method uses types that are not in the Bits or SplitPorts typeclasses.")
 
 
 -- ========================================================================