In trying out the sample implementation, I encountered errors that
seemed to suggest a fix (diff output below) related to a misplaced
parenthesis.  This fix seems to make sense based on a Chicken warning
about unexpected number of parameters, but it's based on a very quick
and localized reading of the source, so I may have completely missed the
point.

Regards,

-chaw

--- default.scm~	2015-11-23 15:21:03.000000000 -0500
+++ default.scm	2015-11-26 10:47:49.078401450 -0500
@@ -78,8 +78,8 @@
     ((5) (symbol<? a b))
     ((6) (complex<? a b))
     ((7) ((make-vector<? (make-default-comparator) vector? vector-length vector-ref) a b))
-    ((8) ((make-vector<? (make-comparator exact-integer? = < default-hash))
-                          bytevector? bytevector-length bytevector-u8-ref) a b)
+    ((8) ((make-vector<? (make-comparator exact-integer? = < default-hash)
+                         bytevector? bytevector-length bytevector-u8-ref) a b))
     ; Add more here
     (else (binary<? (registered-comparator type) a b))))