diff --git a/src/pgsql/merge-catalogs.lisp b/src/pgsql/merge-catalogs.lisp
index 6654510..a71d66c 100644
--- a/src/pgsql/merge-catalogs.lisp
+++ b/src/pgsql/merge-catalogs.lisp
@@ -148,7 +148,7 @@
    similar enough that we may continue with the migration."
   (let ((source-type-name (get-type-name source-column))
         (target-type-name (column-type-name target-column)))
-    (or (string= source-type-name target-type-name)
+    (or (string-equal source-type-name target-type-name)
         (member target-type-name (cdr (assoc source-type-name *type-name-mapping*
                                              :test #'string=))
-                :test #'string=))))
+                :test #'string-equal))))
diff --git a/src/sources/common/casting-rules.lisp b/src/sources/common/casting-rules.lisp
index f893db4..1c4c5a9 100644
--- a/src/sources/common/casting-rules.lisp
+++ b/src/sources/common/casting-rules.lisp
@@ -57,10 +57,10 @@
 
              ;; otherwide, we do the full dance
              (and
-              (or (and t-s-p (string= type rule-source-type)))
+              (or (and t-s-p (string-equal type rule-source-type)))
               (or (null tm-s-p) (when typemod
                                   (typemod-expr-matches-p typemod-expr typemod)))
-              (or (null d-s-p)  (string= default rule-source-default))
+              (or (null d-s-p)  (string-equal default rule-source-default))
               (or (null u-s-p)  (eq unsigned rule-unsigned))
               (or (null n-s-p)  (eq not-null rule-source-not-null))