"Got" type wrong in type check

Imported from http://bugzilla.roxen.com/bugzilla/show_bug.cgi?id=1593

Reported by Martin Stjernholm mast@roxen.com

When starting a cvs current Roxen 2.2 with Pike 7.2 I get the following error when Roxen tries to open an ftp port:

protocols/ftp.pike:2968:Bad argument 2 to `<.
protocols/ftp.pike:2968:Expected: function(program | type, program | type,
program | type ... : int(0..1)) | function(string ... : int(0..1)) |
function(float | int ... : int(0..1)) | !function(!(mixed | object) ... :
mixed) & function(mixed ... : int(0..1))
protocols/ftp.pike:2968:Got     : function(int, function(string ... :
string) | function((0=int | float) ... : 0) | !function(string ... : mixed)
& !function(int | float ... : mixed) & !function(!(object | mixed) ... :
mixed) & function(mixed ... : mixed) : void | mixed)
protocols/ftp.pike:2968:Bad argument 2 to `>.
protocols/ftp.pike:2968:Expected: function(program | type, program | type,
program | type ... : int(0..1)) | function(string ... : int(0..1)) |
function(float | int ... : int(0..1)) | !function(!(mixed | object) ... :
mixed) & function(mixed ... : int(0..1))
protocols/ftp.pike:2968:Got     : function(int, function(string ... :
string) | function((0=int | float) ... : 0) | !function(string ... : mixed)
& !function(int | float ... : mixed) & !function(!(object | mixed) ... :
mixed) & function(mixed ... : mixed) : void | mixed)
protocols/ftp.pike:2990:Must return a value for a non-void function.
protocols/ftp.pike:3010:Must return a value for a non-void function.
protocols/ftp.pike:3020:Must return a value for a non-void function.
protocols/ftp.pike:3047:Must return a value for a non-void function.
protocols/ftp.pike:3062:Must return a value for a non-void function.
protocols/ftp.pike:3727:Class definition failed.