Index: /trunk/source/level-1/l1-error-system.lisp
===================================================================
--- /trunk/source/level-1/l1-error-system.lisp	(revision 12818)
+++ /trunk/source/level-1/l1-error-system.lisp	(revision 12819)
@@ -104,8 +104,9 @@
 
 (define-condition write-to-watched-object (storage-condition)
-  ((object :initform nil :initarg :object))
-  (:report (lambda (c s)
-	     (with-slots (object) c
-	       (format s "Write to watched object ~s." object)))))
+  ((address :initarg :address)
+   (object :initform nil :initarg :object))
+  (:report (lambda (c s)
+	     (with-slots (object address) c
+	       (format s "Write to watched object ~s at ~s." object address)))))
 
 (define-condition type-error (error)