X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fobjects.lisp;fp=sql%2Fobjects.lisp;h=e3a1853df3efb3c05d164a9308e60500919dfdd3;hb=5953db07cc2276392d0a81052d2d8c71d3252b5a;hp=fcb2a66731549b58b7488b0575a428af31012e53;hpb=737c27605b8d2308b95d9717644ba496f37fcd20;p=clsql.git

diff --git a/sql/objects.lisp b/sql/objects.lisp
index fcb2a66..e3a1853 100644
--- a/sql/objects.lisp
+++ b/sql/objects.lisp
@@ -47,8 +47,9 @@
 (defmethod (setf slot-value-using-class) (new-value (class standard-db-class)
 					  instance slot-def)
   (declare (ignore new-value))
-  (let ((slot-name (%svuc-slot-name slot-def))
-        (slot-kind (view-class-slot-db-kind slot-def)))
+  (let* ((slot-name (%svuc-slot-name slot-def))
+	 (slot-object (%svuc-slot-object slot-def class))
+	 (slot-kind (view-class-slot-db-kind slot-object)))
     (call-next-method)
     (when (and *db-auto-sync* 
 	       (not *db-initializing*)