diff --git a/DOMTEST b/DOMTEST
index b4b5984..5dfe3d9 100644
--- a/DOMTEST
+++ b/DOMTEST
@@ -610,11 +610,6 @@ implementationAttribute signed not supported, skipping test
 580/808 documentimportnode12.xml
 581/808 documentimportnode13.xml
 582/808 documentimportnode14.xml
-TEST FAILED: The assertion (DOMTEST::EQUALSP DOMTEST-TESTS::|attrValue|
-                                             #(104 116 116 112 58 47 47 119 119
-                                               119 46 110 105 115 116 46 103
-                                               111 118)
-                                             'DOMTEST::%EQUAL) failed.
 583/808 documentimportnode15.xml
 584/808 documentimportnode17.xml
 585/808 documentimportnode18.xml
@@ -883,4 +878,4 @@ TEST FAILED: expected exception INUSE_ATTRIBUTE_ERR
 803/808 setNamedItemNS04.xml
 804/808 setNamedItemNS05.xml
 805/808 systemId01.xml
-22/763 tests failed; 45 tests were skipped
\ No newline at end of file
+21/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 691ee23..1e65489 100644
--- a/dom/dom-impl.lisp
+++ b/dom/dom-impl.lisp
@@ -1280,7 +1280,14 @@
     (setf (slot-value attributes 'element) result)
     (dolist (attribute (dom:items (dom:attributes node)))
       (when (or (dom:specified attribute) *clone-not-import*)
-        (dom:set-attribute result (dom:name attribute) (dom:value attribute))))
+        (if (dom:namespace-uri attribute)
+	    (dom:set-attribute-ns result
+				  (dom:namespace-uri attribute)
+				  (dom:local-name attribute)
+				  (dom:value attribute))
+	    (dom:set-attribute result
+			       (dom:name attribute)
+			       (dom:value attribute)))))
     result))
 
 (defmethod dom:import-node ((document document) (node entity) deep)