X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Ffdml.lisp;h=0a744cb23a83a3b755afc10ebf750a66961870b2;hb=refs%2Fheads%2F6.8.0;hp=5e248ced0547c0eb66895d820493023b4f032f7b;hpb=3ab5ff5c8b7f6a8fc37f5870b9518a0862f2e611;p=clsql.git

diff --git a/sql/fdml.lisp b/sql/fdml.lisp
index 5e248ce..0a744cb 100644
--- a/sql/fdml.lisp
+++ b/sql/fdml.lisp
@@ -54,8 +54,9 @@
   (values))
 
 (defmethod execute-command ((expr %sql-expression)
-                            &key (database *default-database*))
-  (execute-command (sql-output expr database) :database database)
+                            &key (database *default-database*)
+                            &aux (str-sql (sql-output expr database)))
+  (execute-command str-sql :database database)
   (values))
 
 (defmethod query ((query-expression string) &key (database *default-database*)