diff --git a/extra/msxml-to-csv/msxml-to-csv.factor b/extra/msxml-to-csv/msxml-to-csv.factor
index 839fcaaf54..855275efcc 100644
--- a/extra/msxml-to-csv/msxml-to-csv.factor
+++ b/extra/msxml-to-csv/msxml-to-csv.factor
@@ -3,7 +3,6 @@ io.encodings.ascii kernel ;
 IN: msxml-to-csv
 
 : (msxml>csv) ( xml -- table )
-    "Worksheet" tag-named
     "Table" tag-named
     "Row" tags-named [
         "Cell" tags-named [
diff --git a/extra/msxml-to-csv/test.xml b/extra/msxml-to-csv/test.xml
index 2c4ca42448..cd97905e13 100644
--- a/extra/msxml-to-csv/test.xml
+++ b/extra/msxml-to-csv/test.xml
@@ -1 +1 @@
-<Worksheet><Table><Row><Cell>A</Cell><Cell>B</Cell></Row><Row><Cell>C</Cell><Cell>D</Cell></Row></Table></Worksheet>
+<Worksheet><Table><Row><Cell><Data>A</Data></Cell><Cell><Data>B</Data></Cell></Row><Row><Cell><Data>C</Data></Cell><Cell><Data>D</Data></Cell></Row></Table></Worksheet>