diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp
index 44c511a..e9640db 100644
--- a/src/pgsql/pgsql-create-schema.lisp
+++ b/src/pgsql/pgsql-create-schema.lisp
@@ -95,7 +95,7 @@
              :collect schema-name)))
     (when missing-schemas
       (let ((sql (format nil
-                         "ALTER DATABASE ~a SET search_path TO ~{~a~^, ~};"
+                         "ALTER DATABASE ~s SET search_path TO ~{~a~^, ~};"
                          dbname
                          (append search-path missing-schemas))))
         (pgsql-execute-with-timing section