diff --git a/apropos.el b/apropos.el
index 6d8c784..44c87ee 100644
--- a/apropos.el
+++ b/apropos.el
@@ -817,6 +817,7 @@ Returns list of symbols and values found."
       (lambda (symbol)
 	(setq f nil v nil p nil)
 	(or (memq symbol '(apropos-regexp
+                           apropos--current apropos-pattern-quoted pattern
 			   apropos-pattern apropos-all-words-regexp
 			   apropos-words apropos-all-words
 			   do-all apropos-accumulator
@@ -933,7 +934,10 @@ Returns list of symbols and documentation found."
 
 (defun apropos-value-internal (predicate symbol function)
   (when (funcall predicate symbol)
-    (setq symbol (prin1-to-string (funcall function symbol)))
+    (setq symbol (prin1-to-string
+      (if (memq symbol '(command-history minibuffer-history))
+        (cdr (funcall function symbol))
+       (funcall function symbol))))
     (when (string-match apropos-regexp symbol)
       (if apropos-match-face
           (put-text-property (match-beginning 0) (match-end 0)