X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=cd1a6d397bc9a2665bf0472a80d5d14aa563e602;hp=57afac1b391084aaf658ec4d3511d6573ceaeb2e;hb=78489032c6f66ce666ffe5e2e726503b61b94616;hpb=26533896461bb09509b5df14c767afe85dce324d

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index 57afac1..cd1a6d3 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -589,8 +589,8 @@ uninclusive, and the args from that keyword to the end."
                         (string-equal (slot-value a 'alias)
                                       (slot-value b 'alias))
                         t)
-                    (string-equal (symbol-name (slot-value a 'name))
-                                  (symbol-name (slot-value b 'name))))))
+                    (string-equal (sql-escape (slot-value a 'name))
+                                  (sql-escape (slot-value b 'name))))))
         (typecase from
           (list (output-sql (apply #'vector
                                    (remove-duplicates from