diff --git a/scsh/interaction/interfaces.scm b/scsh/interaction/interfaces.scm
index 4e0124e..4f4f023 100644
--- a/scsh/interaction/interfaces.scm
+++ b/scsh/interaction/interfaces.scm
@@ -6,4 +6,4 @@
   (export with-inspecting-handler))
 
 (define-interface socket2stdports-interface
-  (export socket<->std-ports))
+  (export socket<->stdports))
diff --git a/scsh/interaction/socket2stdport.scm b/scsh/interaction/socket2stdport.scm
index bbe9f9a..638710c 100644
--- a/scsh/interaction/socket2stdport.scm
+++ b/scsh/interaction/socket2stdport.scm
@@ -4,7 +4,7 @@
 ;;; For copyright information, see the file COPYING which comes with
 ;;; the distribution.
 
-(define (socket<->std-ports host port)
+(define (socket<->stdports host port)
   (let ((s (socket-connect protocol-family/internet socket-type/stream host port)))
     (set-port-buffering (socket:outport s) bufpol/none)
     (set-port-buffering (socket:inport s) bufpol/none)
@@ -20,7 +20,7 @@
      (lambda ()
        (dup-port (current-input-port) (socket:outport s)))
      (lambda ()
-       (close s)))))
+       (close-socket s)))))
 
 
 (define (dup-port from to)