diff --git a/src/pgsql/schema.lisp b/src/pgsql/schema.lisp
index 2d5c368..25a5bdc 100644
--- a/src/pgsql/schema.lisp
+++ b/src/pgsql/schema.lisp
@@ -26,7 +26,7 @@
           (cond ((quoted-p identifier)
                  :none)
 
-                ((cl-ppcre:scan "^[^A-Za-z_]" identifier)
+                ((cl-ppcre:scan "[^A-Za-z_]" identifier)
                  :quote)
 
                 ((member lowercase-identifier *pgsql-reserved-keywords*