[Whoops... postgresql knows nothing of CLOS objects!
drewc@tech.coop**20090814202124] hunk ./src/db-access-object-sql.lisp 190
-			      (slot-value object slot)
+			      (let ((val (slot-value object slot)))
+				(if (db-access-object-p val)
+				    (object-id val)
+				    val))