* symbols.c (scm_gensym): Bugfix. (Thanks to Johannes Hjorth.)

diff --git a/libguile/symbols.c b/libguile/symbols.c
index 6355b07..3ec6843 100644 (file)
--- a/libguile/symbols.c
+++ b/libguile/symbols.c
@@ -827,7 +827,8 @@ scm_gensym (name, obarray)
   if (SCM_UNBNDP (name))
     name = gensym_prefix;
   else
-    SCM_ASSERT (SCM_ROSTRINGP (name), name, SCM_ARG1, s_gensym);
+    SCM_ASSERT (SCM_NIMP (name) && SCM_ROSTRINGP (name),
+               name, SCM_ARG1, s_gensym);
   new = name;
   if (SCM_UNBNDP (obarray))
     {