X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/14a7e1bc1292858dce5ac75038f660c2e52898a5..d2882889dc2234eef5882eeaa79e83e4e0d638a3:/src/relational-attributes.lisp

diff --git a/src/relational-attributes.lisp b/src/relational-attributes.lisp
index 550082e..5485515 100644
--- a/src/relational-attributes.lisp
+++ b/src/relational-attributes.lisp
@@ -15,11 +15,11 @@
 
 
 (defdisplay (:description (attribute many-to-many))
-    (let ((instances (select-instances object))
+  (let ((instances (select-instances object t))
 	new-instance)
     (<:ul
      (<:li (<ucw:button :action (add-new-relation component object (getp slot-name))
-			 (<:as-html "Add New")))
+			(<:as-html "Add New")))
      (<:li  (<ucw:button :action (add-new-relation component object new-instance)
 			 (<:as-html "Add:"))
 	    (<ucw:select :accessor new-instance