diff --git a/src/pgsql/pgsql-schema.lisp b/src/pgsql/pgsql-schema.lisp
index e5ce1af..b47c4e5 100644
--- a/src/pgsql/pgsql-schema.lisp
+++ b/src/pgsql/pgsql-schema.lisp
@@ -100,7 +100,7 @@
 (defun format-table-name-as-including-exp (table)
   "Return a table name suitable for a catalog lookup using ~ operator."
   (let ((table-name (table-name table)))
-    (format nil "^~a$" (ensure-unquoted table-name))))
+    (make-string-match-rule :target (ensure-unquoted table-name))))
 
 (defun query-table-schema (table)
   "Get PostgreSQL schema name where to locate TABLE-NAME by following the