diff --git a/scheme/eval.sld b/scheme/eval.sld
index ba33ae11..042a520f 100644
--- a/scheme/eval.sld
+++ b/scheme/eval.sld
@@ -99,7 +99,9 @@
   (cond 
     ((application? exp)
      (cond
-       ((compound-procedure? (car exp))
+       ((or (primitive-procedure? (car exp)) 
+            (compound-procedure? (car exp))
+            (procedure? (car exp)))
         (cons 
           (car exp)
           (map