diff --git a/runtime.c b/runtime.c
index df04ad59..bd7f4993 100644
--- a/runtime.c
+++ b/runtime.c
@@ -614,7 +614,7 @@ object Cyc_is_symbol(object o){
     return boolean_f;}
 
 object Cyc_is_reserved_symbol(object o) {
-  if (Cyc_is_symbol(o) == boolean_t && equalp(o, quote_Cyc_191procedure))
+  if (Cyc_is_symbol(o) == boolean_t && equal(o, quote_Cyc_191procedure))
       return boolean_t;
   return boolean_f; }