Index: detect-native-crypt-features.scm
===================================================================
--- detect-native-crypt-features.scm	(revision 28668)
+++ detect-native-crypt-features.scm	(working copy)
@@ -26,7 +26,7 @@
                                 (conc "crypt-native-" (symbol->string name))))
                  (salt (cadr type))
                  (hash (caddr type)))
-            (if (string=? hash (crypt-native "password" salt))
+            (if (equal? hash (crypt-native "password" salt))
                 (cons (cons name feature-name) supported-types)
                 supported-types)))
         '()
@@ -34,4 +34,4 @@
 
 ;; For the setup script
 (with-output-to-file "crypt-features"
-  (lambda () (write (map cdr native-crypt-supported-types))))
\ No newline at end of file
+  (lambda () (write (map cdr native-crypt-supported-types))))