X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/cf220af8cb97796e2e75f9d642e9c4ea85ba05ba..e1645f63189477f1b39a173a41fcbbfefb5e88a6:/src/slot-presentations.lisp

diff --git a/src/slot-presentations.lisp b/src/slot-presentations.lisp
index d515860..2f75737 100644
--- a/src/slot-presentations.lisp
+++ b/src/slot-presentations.lisp
@@ -217,11 +217,10 @@ Calendar.setup({
   ;; the viewed instance could have been changed/deleted, so we sync this instance
   (meta-model:sync-instance (instance (ucw::parent self))))
 
-
 (defmethod  present-slot :around ((slot foreign-key-slot-presentation) instance)  
   (setf (foreign-instance slot) 
 	(when (lol::presentation-slot-value slot instance) 
-	  (meta-model:explode-foreign-key instance (slot-name slot))))
+	  (meta-model:explode-foreign-key instance (slot-name slot) :nilp t)))
   (flet ((render () (when (foreign-instance slot)(call-next-method))))
     (if (slot-boundp slot 'ucw::place)
         (cond