diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 019e8ba35..94b0daedf 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -158,10 +158,12 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
     obj = SCM_MEMOIZED_EXP (obj);
   else if (!SCM_CONSP (obj))
     SCM_WRONG_TYPE_ARG (1, obj);
-  p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);
+  p = scm_hashq_ref (scm_source_whash, obj, SCM_EOL);
   if (SRCPROPSP (p))
     return scm_srcprops_to_plist (p);
-  return SCM_EOL;
+  else
+    /* list from set-source-properties!, or SCM_EOL for not found */
+    return p;
 }
 #undef FUNC_NAME