diff --git a/ghc/compiler/nativeGen/AbsCStixGen.lhs b/ghc/compiler/nativeGen/AbsCStixGen.lhs
index 35649a1a898b118a3f58c2d459d104acd6befc1d..36cb4579752bec1f48aac85f47ff1940ec750f1b 100644
--- a/ghc/compiler/nativeGen/AbsCStixGen.lhs
+++ b/ghc/compiler/nativeGen/AbsCStixGen.lhs
@@ -158,7 +158,7 @@ Here we handle top-level things, like @CCodeBlock@s and
 	     : StSegment TextSegment
 	     : StLabel lbl
 	     : StCondJump tmp_lbl (StPrim IntNeOp 	
-				     [StInd IntRep StCLbl moduleRegdLabel, 
+				     [StInd IntRep (StCLbl moduleRegdLabel),
 				      StInt 0])
 	     : StAssign IntRep (StInd IntRep (StCLbl moduleRegdLabel)) (StInt 1)
 	     : code