diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm
index 09bbdb4..19de5fc 100644
--- a/scheme/lib/smtp.scm
+++ b/scheme/lib/smtp.scm
@@ -76,16 +76,6 @@
 		     (values code text)
 		     (values 700 losers))))))))))
 
-;;; Trivial utility -- like map, but filter out #f's.
-
-(define (filter-map f lis)
-  (let lp ((ans '()) (lis lis))
-    (if (pair? lis)
-	(lp (cond ((f (car lis)) => (lambda (val) (cons val ans)))
-		  (else ans))
-	    (cdr lis))
-	(reverse ans))))
-
 ;;; EXPN, VRFY, MAIL-HELP
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; These three are simple queries of the server.
diff --git a/scheme/packages.scm b/scheme/packages.scm
index e20c7da..1890e21 100644
--- a/scheme/packages.scm
+++ b/scheme/packages.scm
@@ -438,6 +438,7 @@
 				
   (open scsh			; write-string read-string/partial force-output
 				;   system-name user-login-name and sockets
+	(subset srfi-1 (filter-map))
 	crlf-io			; read-crlf-line write-crlf
 	receiving		; values receive
 	let-opt			; let-optionals