diff --git a/scheme/big/finite-type.scm b/scheme/big/finite-type.scm
index e720d4c..6c2dc4b 100644
--- a/scheme/big/finite-type.scm
+++ b/scheme/big/finite-type.scm
@@ -124,7 +124,7 @@
 	     (let loop ((names ',names) (i 0))
 	       (cond ((null? names)
 		      form1)
-		     ((eq? elt (car names))
+		     ((compare1 elt (car names))
 		      (list (,%code-quote ,%vector-ref) (rename1 ',elts) i))
 		     (else
 		      (loop (cdr names) (+ i 1))))))))))