# Combinatorica and MultiplicationTable in Mathematica 11

I try to use

<<Combinatorica


or call

IntervalSlider; Needs["Combinatorica"]


or call

Quiet[Needs["Combinatorica"], General::compat]


in Mathematica 11, but it fails to obtain the FiniteGroupData for DihedralGroup:

FiniteGroupData["DihedralGroup[4]", "MultiplicationTable"] // Grid
`

It shows error messages:

See also this. But I tried to use the functions mentioned but it does not work.

Are there some ways to fix them?