diff --git a/scheme/lib/netrc.scm b/scheme/lib/netrc.scm
index 2e10860..b1a09e0 100644
--- a/scheme/lib/netrc.scm
+++ b/scheme/lib/netrc.scm
@@ -254,9 +254,9 @@
 		(if (netrc? netrc-record)      
 		    (begin
 		      (if (eq? (netrc-default-login netrc-record) #f)
-			  (set-netrc-default-login! (local-default-login)))
+			  (set-netrc-default-login! netrc-record (local-default-login)))
 		      (if (eq? (netrc-default-password netrc-record) #f)
-			  (set-netrc-default-password! (local-default-password)))
+			  (set-netrc-default-password! netrc-record (local-default-password)))
 		      netrc-record)
 		    (let ((default-netrc-record (local-default-netrc-record)))
 		      (set-netrc-file-name! default-netrc-record file-name)