Index: /branches/working-0711/ccl/lib/apropos.lisp
===================================================================
--- /branches/working-0711/ccl/lib/apropos.lisp	(revision 12941)
+++ /branches/working-0711/ccl/lib/apropos.lisp	(revision 12942)
@@ -48,8 +48,8 @@
       (do-symbols (sym package)
         (when (%apropos-substring-p theString (symbol-name sym))
-          (push sym theList)))
+          (pushnew sym theList)))
       (do-all-symbols (sym)
         (when (%apropos-substring-p theString (symbol-name sym))
-          (push sym theList))))
+          (pushnew sym theList))))
     (let* ((last 0)                      ; not a symbol
            (junk #'(lambda (item)