diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index b0326dd8d..cdf7a8f28 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -178,10 +178,12 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
   else if (SCM_NCONSP (obj))
     SCM_WRONG_TYPE_ARG (1, obj);
 #endif
-  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