diff --git a/scheme/packages.scm b/scheme/packages.scm
index 0266f78..81121a6 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -110,7 +110,11 @@
           ftp-put
           ftp-append
           ftp-quot
-	  ftp-error?))
+	  ftp-error?
+
+	  copy-port->port-binary
+	  copy-port->port-ascii
+	  copy-ascii-port->port))
 
 (define-interface netrc-interface 
   (export user-mail-address