diff --git a/collects/net/mime-util.ss b/collects/net/mime-util.ss
index f5f789788a..5f315e4d87 100644
--- a/collects/net/mime-util.ss
+++ b/collects/net/mime-util.ss
@@ -76,7 +76,7 @@
                                 (loop rest (cons prefix unquoted) (cons (format "\"~a\"" inside) quoted)))
                               ;; No closing quote!
                               (loop "" (cons prefix unquoted) (cons (format "\"~a" rest) quoted)))))
-                        (values (reverse! (cons str unquoted)) (reverse! quoted)))))])
+                        (values (reverse (cons str unquoted)) (reverse quoted)))))])
       ;; Put the pieces back together, stripping spaces for unquoted parts:
       (apply
        string-append
diff --git a/collects/net/tcp-sig.ss b/collects/net/tcp-sig.ss
index 2ca8778b84..f6d873a424 100644
--- a/collects/net/tcp-sig.ss
+++ b/collects/net/tcp-sig.ss
@@ -1,11 +1,12 @@
-(module tcp-sig (lib "a-signature.ss")
-  tcp-abandon-port
-  tcp-accept
-  tcp-accept/enable-break
-  tcp-accept-ready?
-  tcp-addresses
-  tcp-close
-  tcp-connect
-  tcp-connect/enable-break
-  tcp-listen
-  tcp-listener?)
+#lang scheme/signature
+
+tcp-abandon-port
+tcp-accept
+tcp-accept/enable-break
+tcp-accept-ready?
+tcp-addresses
+tcp-close
+tcp-connect
+tcp-connect/enable-break
+tcp-listen
+tcp-listener?