diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index dc5b843ac..4f4b9716b 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2000-09-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+	* syncase.scm (putprop):  Use the high-level property interface.
+
 2000-09-12  Mikael Djurfeldt  <mdj@linnaeus.mit.edu>
 
 	* psyntax.ss (build-lexical-var): Use gentemp instead of gensym;
diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm
index 6b23bb757..4a5e61b97 100644
--- a/ice-9/syncase.scm
+++ b/ice-9/syncase.scm
@@ -97,7 +97,7 @@
   (let* ((m (current-module))
 	 (v (or (module-variable m symbol)
 		(module-make-local-var! m symbol))))
-    (if (assq 'primitive-syntax (symbol-pref symbol))
+    (if (symbol-property symbol 'primitive-syntax)
 	(if (eq? (current-module) the-syncase-module)
 	    (set-object-property! (module-variable the-root-module symbol)
 				  key