diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 9d86e7083..fb83cf599 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+Thu Sep  4 14:57:04 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
+
+	* syncase.scm (putprop): Temporary fix which publishes new syntax
+	globally (the old behaviour was complex and connected to the inner
+	workings of the current module system).
+
 Wed Sep  3 21:29:13 1997  Mikael Djurfeldt  <mdj@mdj.nada.kth.se>
 
 	* psyntax.ss: Updated.
diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm
index f2c418b54..b5b20a984 100644
--- a/ice-9/syncase.scm
+++ b/ice-9/syncase.scm
@@ -49,7 +49,9 @@
 			  (list why what)
 			  '())))
 
-(define putprop set-symbol-property!)
+(define (putprop s p v)
+  (builtin-variable s)
+  (set-symbol-property! s p v))
 (define getprop symbol-property)
 
 (define-public sc-expand #f)