X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fbase-classes.lisp;fp=sql%2Fbase-classes.lisp;h=8e0cc496a5e7c4b0714dddc9b4e17e14fa7c0aa2;hp=87833fc3bf4ccae1145cb867a358a9a904684a03;hb=44c87a075cbe29141d90dc49c501f382a6d81fbe;hpb=2d7fb2dcce0f94745672b4f2aff6be39d610a063

diff --git a/sql/base-classes.lisp b/sql/base-classes.lisp
index 87833fc..8e0cc49 100644
--- a/sql/base-classes.lisp
+++ b/sql/base-classes.lisp
@@ -50,7 +50,8 @@ are a list of ACTION specified for table and any cached value of list-attributes
 	    (if (slot-boundp object 'name)
 		(database-name object)
 	      "<unbound>")
-	    (database-state object))))
+	    (database-state object)))
+  object)
 
 (setf (documentation 'database-name 'function)
       "Returns the name of a database.")