diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index fb15ec74f..0d03bc3c7 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-25  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* srcprop.c (scm_set_source_property_x):  Fix to handle
+	(set-source-property! <obj> 'copy <datum>) correctly.
+
 2001-01-24  Gary Houston  <ghouston@arglist.com>
 
 	* filesys.c (scm_link): docstring fix.
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 0fa027283..f17125f91 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -306,7 +306,7 @@ SCM_DEFINE (scm_set_source_property_x, "set-source-property!", 3, 0, 0,
       else
 	SCM_WHASHSET (scm_source_whash, h, scm_make_srcprops (0, 0, datum, SCM_UNDEFINED, p));
     }
-  else if (SCM_EQ_P (scm_sym_filename, key))
+  else if (SCM_EQ_P (scm_sym_copy, key))
     {
       if (SRCPROPSP (p))
 	SRCPROPCOPY (p) = datum;