X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/5f0b37e7a9a8e95dd5a846bfa7896af5875b91f7..2cb4247de9700f350d146a65c4156d7959d0bb8d:/src/mewa/presentations.lisp?ds=sidebyside

diff --git a/src/mewa/presentations.lisp b/src/mewa/presentations.lisp
index 15f0e16..95e4977 100644
--- a/src/mewa/presentations.lisp
+++ b/src/mewa/presentations.lisp
@@ -185,7 +185,7 @@
 (defmethod render-criteria ((res response) (s mewa-presentation-search))
   (setf (criteria-input s) "")
   (<:ul
-   (dolist (c (criteria s))
+   (dolist (c (ucw::criteria s))
      (<:li (render-on res c)
 	   (let ((c c))
 	     (<ucw:input :action (ucw::drop-criteria s c) :type "submit" :value "eliminate"))))