X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fcommand-object.lisp;h=566a2fea293b6693225af28e7034ed9d06c1441b;hp=f6c57693dbb5c9db6eea7ddee51012696f488aae;hb=f3430ff34ef6631daf20cb9c69ecbc7ad84d14df;hpb=6828cb461404126aa0c334fe2b669d435304f73e

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index f6c5769..566a2fe 100644
--- a/sql/command-object.lisp
+++ b/sql/command-object.lisp
@@ -40,10 +40,10 @@
   " This causes the semantics to match cl-sql instead of cl-postgresql
   "
   (setf (slot-value o 'parameters)
-	(loop for p in (parameters o)
-	      collect (cond ((null p) :null)
-			    ((member p (list :false :F)) nil)
-			    (T p)))))
+	(loop for p in new
+	      collecting (cond ((null p) :null)
+			       ((member p (list :false :F)) nil)
+			       (T p)))))
 
 (defun reset-command-object (co)
   "Resets the command object to have no name and to be unprepared