Stack effect fixes

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

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