X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fooddl.lisp;h=c5e9d885b941d07a9d203313bdd1a2de30c6c794;hp=d2158cc99091cbf36215b8d53b5c2df37268aaea;hb=a9f4dd155f9802d1444ab03339879232c6337f57;hpb=fc6e46a000589bffc1a1b69cb3fe13bcbaade59b

diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp
index d2158cc..c5e9d88 100644
--- a/sql/ooddl.lisp
+++ b/sql/ooddl.lisp
@@ -50,12 +50,13 @@
   (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*)
-	       (not *db-deserializing*)
-	       (not (eql slot-kind :virtual)))
-      (update-record-from-slot instance slot-name))))
+    (prog1
+      (call-next-method)
+      (when (and *db-auto-sync* 
+                 (not *db-initializing*)
+                 (not *db-deserializing*)
+                 (not (eql slot-kind :virtual)))
+        (update-record-from-slot instance slot-name)))))
 
 (defmethod initialize-instance ((object standard-db-object)
 					&rest all-keys &key &allow-other-keys)