diff --git a/basis/xml/tests/state-parser-tests.factor b/basis/xml/tests/state-parser-tests.factor
index 7616efaf1d..5e214dc4a3 100644
--- a/basis/xml/tests/state-parser-tests.factor
+++ b/basis/xml/tests/state-parser-tests.factor
@@ -2,7 +2,7 @@ USING: tools.test xml.tokenize xml.state io.streams.string kernel io strings asc
 IN: xml.test.state
 
 : string-parse ( str quot -- )
-    [ <string-reader> ] dip with-state ;
+    [ <string-reader> ] dip with-state ; inline
 
 : take-rest ( -- string )
     [ f ] take-until ;
diff --git a/basis/xml/tests/xmltest.factor b/basis/xml/tests/xmltest.factor
index c41b05eb85..55b5147abb 100644
--- a/basis/xml/tests/xmltest.factor
+++ b/basis/xml/tests/xmltest.factor
@@ -43,7 +43,7 @@ MACRO: drop-input ( quot -- newquot )
     xml-tests [ unit-test ] assoc-each ;
 
 : works? ( result quot -- ? )
-    [ first ] [ call ] bi* = ;
+    [ first ] [ call( -- result ) ] bi* = ;
 
 : partition-xml-tests ( -- successes failures )
     xml-tests [ first2 works? ] partition ;