diff --git a/extra/concurrency/concurrency.factor b/extra/concurrency/concurrency.factor
index 391e6b4c4b..32ae3e5940 100644
--- a/extra/concurrency/concurrency.factor
+++ b/extra/concurrency/concurrency.factor
@@ -239,7 +239,7 @@ PRIVATE>
         "Exiting process: " write self process-pid print
     ] curry spawn-link ;
 
-: server-cc ( -- cc | process )
+: server-cc ( -- cc|process )
     #! Captures the current continuation and returns the value.
     #! If that CC is called with a process on the stack it will
     #! set 'self' for the current process to it. Otherwise it will
diff --git a/extra/xml/utilities/utilities.factor b/extra/xml/utilities/utilities.factor
index f88d4c5863..303de4295e 100644
--- a/extra/xml/utilities/utilities.factor
+++ b/extra/xml/utilities/utilities.factor
@@ -10,9 +10,9 @@ IN: xml.utilities
 TUPLE: process-missing process tag ;
 M: process-missing error.
     "Tag <" write
-    process-missing-tag print-name
+    dup process-missing-tag print-name
     "> not implemented on process process " write
-    dup process-missing-process word-name print ;
+    process-missing-process word-name print ;
 
 : run-process ( tag word -- )
     2dup "xtable" word-prop