diff --git a/scheme/lib/dns.scm b/scheme/lib/dns.scm
index b8695ea..36e9e1b 100644
--- a/scheme/lib/dns.scm
+++ b/scheme/lib/dns.scm
@@ -1175,14 +1175,14 @@
 ;; (dns-lookup-name nameserver) is called.
 ;; use-cache? defaults to #t
 (define (lookup-optional-args args)
-  (if (null? args) 
+  (if (null? args)
       (values (map ip-string->address32 (dns-find-nameserver-list)) #t)
       (values
        (map (lambda (nameserver)
 	      (cond
 	       ((address32? nameserver) nameserver)
 	       ((ip-string? nameserver) (ip-string->address32 nameserver))
-	       (else (map (dns-lookup-name nameserver (dns-find-nameserver-list))))))
+	       (else (map dns-lookup-name (dns-find-nameserver-list)))))
 	    (car args))
        (if (null? (cdr args))
 	   #t