diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp
index 8c3b1c4..e3fc370 100644
--- a/src/pgsql/pgsql-create-schema.lisp
+++ b/src/pgsql/pgsql-create-schema.lisp
@@ -69,7 +69,7 @@
     (when include-drop
       ;; if asked, first DROP the schema CASCADE.
       (loop :for schema :in (catalog-schema-list catalog)
-         :for schema-name := (schema-name schema)
+         :for schema-name := (ensure-unquoted (schema-name schema))
          :when (and schema-name
                     (member schema-name schema-list :test #'string=))
          :do (let ((sql (format nil "DROP SCHEMA ~a CASCADE;" schema-name)))
@@ -77,7 +77,7 @@
 
     ;; now create the schemas (again?)
     (loop :for schema :in (catalog-schema-list catalog)
-       :for schema-name := (schema-name schema)
+       :for schema-name := (ensure-unquoted (schema-name schema))
        :when (and schema-name
                   (or include-drop
                       (not (member schema-name schema-list :test #'string=))))