diff --git a/ic.el b/ic.el
index 0244fce..22bbf26 100644
--- a/ic.el
+++ b/ic.el
@@ -110,9 +110,10 @@ Arguments FNC and ARGS are for function `advice-add'."
          (concat (pp object)
                  (ppp-plist-to-string (ht-to-plist object))))
         (t
-         (let ((func (cond ((listp object)       #'ppp-list-to-string)
-                           (t                    #'pp))))
-           (ic-2str (funcall func object))))))
+         (let* ((func (cond ((listp object)       #'ppp-list-to-string)
+                            (t                    #'pp)))
+                (result (msgu-silent (apply func (list object)))))
+           (ic-2str result)))))
 
 (defun ic--mapconcat (func seq)
   "Like function `mapconcat', but compatible to newline separator.