Index: /trunk/source/level-1/l1-error-system.lisp
===================================================================
--- /trunk/source/level-1/l1-error-system.lisp	(revision 12790)
+++ /trunk/source/level-1/l1-error-system.lisp	(revision 12791)
@@ -103,4 +103,9 @@
              (format s "Invalid memory operation."))))
 
+(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)))))
 
 (define-condition type-error (error)