X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Foodml.lisp;h=3e7ec9af023c31fc1c5d0e4cdd538c4ab2e8cfa5;hb=92718807dc442b36c4ec549e63166248d6c56c39;hp=30f6b0dfd82ea20aaab3526dcca657a8740f0a08;hpb=348cafca35b850b66b1181ba0661211e64f0d4f1;p=clsql.git

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 30f6b0d..3e7ec9a 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -235,6 +235,7 @@
 					    :result-types nil
 					    :database database)))))
     (when res
+      (setf (slot-value instance 'view-database) database)
       (get-slot-values-from-view instance (mapcar #'car sels) (car res)))))
 
 (defmethod update-slot-from-record ((instance standard-db-object)