Index: /trunk/source/level-1/l1-error-system.lisp
===================================================================
--- /trunk/source/level-1/l1-error-system.lisp	(revision 13011)
+++ /trunk/source/level-1/l1-error-system.lisp	(revision 13012)
@@ -109,5 +109,6 @@
    (offset :initarg :offset
 	   :reader write-to-watched-object-offset)
-   (instruction :initarg :instruction))
+   (instruction :initarg :instruction
+		:reader write-to-watched-object-instruction))
   (:report report-write-to-watched-object))