diff --git a/src/pgsql/pgsql-ddl.lisp b/src/pgsql/pgsql-ddl.lisp
index 0182bd3..4fe2316 100644
--- a/src/pgsql/pgsql-ddl.lisp
+++ b/src/pgsql/pgsql-ddl.lisp
@@ -32,8 +32,11 @@
                      (sqltype-extra sqltype))))))
 
 (defmethod format-drop-sql ((sqltype sqltype) &key (stream nil) cascade if-exists)
-  (format stream "DROP TYPE~:[~; IF EXISTS~] ~a~@[ CASCADE~];"
-          if-exists (sqltype-name sqltype) cascade))
+  (format stream "DROP TYPE~:[~; IF EXISTS~] ~@[~a.~]~a~@[ CASCADE~];"
+          if-exists
+          (schema-name (sqltype-schema sqltype))
+          (sqltype-name sqltype)
+          cascade))
 
 
 ;;;