diff --git a/DOMTEST b/DOMTEST
index 91a96ff..5ac7d16 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -1070,7 +1070,6 @@ TEST FAILED: There is no applicable method for the generic function
 783/808 removeNamedItemNS01.xml
 784/808 removeNamedItemNS02.xml
 785/808 removeNamedItemNS03.xml
-TEST FAILED: expected exception NO_MODIFICATION_ALLOWED_ERR
 786/808 setAttributeNS01.xml
 787/808 setAttributeNS02.xml
 788/808 setAttributeNS03.xml
@@ -1115,4 +1114,4 @@ TEST FAILED: There is no applicable method for the generic function
                (NIL).
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-102/763 tests failed; 45 tests were skipped
\ No newline at end of file
+101/763 tests failed; 45 tests were skipped
\ No newline at end of file
diff --git a/dom/dom-impl.lisp b/dom/dom-impl.lisp
index de013e7..4b01030 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -1138,6 +1138,7 @@
   (labels ((walk (n)
              (setf (slot-value n 'read-only-p) t)
              (when (dom:element-p n)
+	       (setf (slot-value (dom:attributes n) 'read-only-p) t)
                (map nil #'walk (dom:items (dom:attributes n))))
              (map nil #'walk (dom:child-nodes n))))
     (walk instance)))