diff --git a/Ed/EdTab.icl b/Ed/EdTab.icl
index 621afb7f56bea88ff37170b7ebe946ab2eef5283..e4be09418aeb996ce7cc05b11b75e9083085872d 100644
--- a/Ed/EdTab.icl
+++ b/Ed/EdTab.icl
@@ -94,7 +94,7 @@ optDrawS :== pictdrawstring		// use non-optimised versions
 optDrawC :== pictdrawchar		// "
 
 tabDrawStringC :: !Point2 !(!Info,!String) !FontInfo !*Picture -> *Picture
-tabDrawStringC point ((clevel,typedef,typedecl),string)
+tabDrawStringC point ((clevel,typedef,typedecl,_),string)
 	{tabSize,charWidth,thefont, showTabs, syntaxColours={textColour, backgroundColour,tabColour, commentColour, stringColour, charColour, keywordColour, typedefColour, typedeclColour}}
 	picture
 	#! strings = splitAtTabs string