@@ -544,7 +544,8 @@ hierarchicalizeWithIds (x:rest) = do
544544
545545headerLtEq :: Int -> Block -> Bool
546546headerLtEq level (Header l _ _) = l <= level
547−headerLtEq level (Div ("",["references"],[]) (Header l _ _ : _)) = l <= level
547+headerLtEq level (Div ("",classes,[]) (Header l _ _ : _)) =
548+ l <= level && "column" `notElem` classes && "columns" `notElem` classes
548549headerLtEq _ _ = False
549550
550551-- | Generate a unique identifier from a list of inlines.