String comparison procedures broken

Ikarus Scheme version 0.0.3+ (revision 1677, build 2008-11-14)
Copyright (c) 2006-2008 Abdulaziz Ghuloum

> (string<? "asdf")
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: string<?
   3. &message: "not a string"
   4. &irritants: ("asdf")
> (string<? "asdf" "blah")
#t
> (string<? "asdf" "blah" "foo")
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: string<?
   3. &message: "not a string"
   4. &irritants: ("foo")
> (string<? "asdf" "blah" "foo" "zab")
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: string<?
   3. &message: "not a string"
   4. &irritants: ("zab")
>
> (string>? "asdf" "blah" "foo" "zab")
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: string>?
   3. &message: "not a string"
   4. &irritants: ("blah")
> (string=? "asdf" "blah" "foo" "zab")
#f
> (string>=? "asdf" "blah" "foo" "zab")
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: string>=?
   3. &message: "not a string"
   4. &irritants: ("blah")
>