--- srcprop.c.~1.62.~	2003-05-22 11:39:33.000000000 +1000
+++ srcprop.c	2003-07-20 12:31:08.000000000 +1000
@@ -161,7 +161,8 @@
   p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);
   if (SRCPROPSP (p))
     return scm_srcprops_to_plist (p);
-  return SCM_EOL;
+  else
+    return p;   /* plist from set-source-properties! */
 }
 #undef FUNC_NAME