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

diff --git a/sql/ooddl.lisp b/sql/ooddl.lisp
index d37470d..c5e9d88 100644
--- a/sql/ooddl.lisp
+++ b/sql/ooddl.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: 
+;;;; $Id$
 ;;;;
 ;;;; The CLSQL Object Oriented Data Definitional Language (OODDL)
 ;;;;
@@ -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)