diff --git a/scsh/tmail/tforks.scm b/scsh/tmail/tforks.scm
index 4813a47..9abf796 100644
--- a/scsh/tmail/tforks.scm
+++ b/scsh/tmail/tforks.scm
@@ -49,7 +49,7 @@
                         *port
                         (eoln)))
 
-    ((lambda (portnumber)
+    ((lambda ()
        (call-with-values
            (lambda ()
              (socket-accept *socket))
@@ -104,6 +104,4 @@
            (close-socket *socket)
            (close-output-port out)
            (exit)
-           )))
-     *port)
-    ))
\ No newline at end of file
+           ))))))
\ No newline at end of file