diff --git a/ice-9/emacs.scm b/ice-9/emacs.scm
index 535e59ab6..850571d42 100644
--- a/ice-9/emacs.scm
+++ b/ice-9/emacs.scm
@@ -248,7 +248,7 @@
 
 (define (emacs-symdoc symbol)
   (if (or (not (module-bound? (current-module) symbol))
-	  (not (procedure? (eval symbol) (interaction-environment))))
+	  (not (procedure? (eval symbol (interaction-environment)))))
       'nil
       (procedure-documentation (eval symbol (interaction-environment)))))