diff --git a/extra/html/html-tests.factor b/extra/html/html-tests.factor
index cac6526376..ce320ca75b 100644
--- a/extra/html/html-tests.factor
+++ b/extra/html/html-tests.factor
@@ -3,7 +3,9 @@ namespaces tools.test xml.writer sbufs sequences html.private ;
 IN: html.tests
 
 : make-html-string
-    [ with-html-stream ] with-string-writer ;
+    [ with-html-stream ] with-string-writer ; inline
+
+[ [ ] make-html-string ] must-infer
 
 [ ] [
     512 <sbuf> <html-stream> drop
diff --git a/extra/html/html.factor b/extra/html/html.factor
index 84597731d1..5c82b7f038 100755
--- a/extra/html/html.factor
+++ b/extra/html/html.factor
@@ -194,7 +194,7 @@ M: html-stream stream-nl ( stream -- )
 
 ! Utilities
 : with-html-stream ( quot -- )
-    stdio get <html-stream> swap with-stream* ;
+    stdio get <html-stream> swap with-stream* ; inline
 
 : xhtml-preamble
     "<?xml version=\"1.0\"?>" write-html
diff --git a/extra/serialize/serialize.factor b/extra/serialize/serialize.factor
index 9107c0145a..bb69a8a41c 100755
--- a/extra/serialize/serialize.factor
+++ b/extra/serialize/serialize.factor
@@ -246,7 +246,7 @@ SYMBOL: deserialized
     (deserialize) <wrapper> ;
 
 :: (deserialize-seq) ( exemplar quot -- seq )
-    deserialize-cell exemplar new
+    deserialize-cell exemplar new-sequence
     [ intern-object ]
     [ dup [ drop quot call ] change-each ] bi ; inline
 
diff --git a/extra/state-parser/state-parser.factor b/extra/state-parser/state-parser.factor
index cb0362609a..6a3bf1d552 100644
--- a/extra/state-parser/state-parser.factor
+++ b/extra/state-parser/state-parser.factor
@@ -97,7 +97,7 @@ SYMBOL: prolog-data
     #! advance spot to after the substring.
     [ [
         dup slip swap dup [ get-char , ] unless
-    ] skip-until ] "" make nip ;
+    ] skip-until ] "" make nip ; inline
 
 : rest ( -- string )
     [ f ] take-until ;
diff --git a/extra/xml/tests/test.factor b/extra/xml/tests/test.factor
index 98146136e6..72ab7b1340 100644
--- a/extra/xml/tests/test.factor
+++ b/extra/xml/tests/test.factor
@@ -6,6 +6,8 @@ USING: kernel xml tools.test io namespaces sequences xml.errors xml.entities
     continuations assocs sequences.deep ;
 
 ! This is insufficient
+\ read-xml must-infer
+
 SYMBOL: xml-file
 [ ] [ "extra/xml/tests/test.xml" resource-path
     [ file>xml ] with-html-entities xml-file set ] unit-test