Implement missing function in wtpol.spad.


git-svn-id: https://fricas.svn.sourceforge.net/svnroot/fricas/trunk@1685 b0c55286-4f34-0410-a049-a1e7e93b0762