diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index fb44cce9e..6a8376482 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* symbols.c (scm_symbol_p):  Eliminate redundant SCM_IMP test.
+
 2000-09-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	This patch unifies the formerly distinct ssymbol and msymbol types
diff --git a/libguile/symbols.c b/libguile/symbols.c
index 641ea8a17..0052b8acc 100644
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -425,12 +425,11 @@ scm_symbol_value0 (const char *name)
 }
 
 SCM_DEFINE (scm_symbol_p, "symbol?", 1, 0, 0, 
-           (SCM obj),
+	    (SCM obj),
 	    "Returns @t{#t} if @var{obj} is a symbol, otherwise returns @t{#f}. (r5rs)")
 #define FUNC_NAME s_scm_symbol_p
 {
-  if SCM_IMP(obj) return SCM_BOOL_F;
-  return SCM_BOOL(SCM_SYMBOLP(obj));
+  return SCM_BOOL (SCM_SYMBOLP (obj));
 }
 #undef FUNC_NAME