--- a/lisp/w3/url-gw.el	Mon Aug 13 09:21:56 2007 +0200
+++ b/lisp/w3/url-gw.el	Mon Aug 13 09:23:06 2007 +0200
@@ -1,7 +1,7 @@
 ;;; url-gw.el --- Gateway munging for URL loading
 ;; Author: wmperry
-;; Created: 1997/02/10 01:00:01
-;; Version: 1.5
+;; Created: 1997/03/26 14:32:29
+;; Version: 1.7
 ;; Keywords: comm, data, processes
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -68,7 +68,7 @@
 but your machine can.  This usually happens if you are running a statically
 linked Emacs under SunOS 4.x")
 
-(defvar url-gateway-nslookup-program nil
+(defvar url-gateway-nslookup-program "nslookup"
   "*If non-NIL then a string naming nslookup program." )
 
 ;; Stolen from ange-ftp
@@ -106,7 +106,7 @@
 (defun url-open-rlogin (name buffer host service)
   "Open a connection using rsh."
   (if (not (stringp service))
-      (setq service (into-to-string service)))
+      (setq service (int-to-string service)))
   (let ((proc (if url-gateway-rlogin-user-name
 		  (start-process
 		   name buffer "rsh"
@@ -129,7 +129,7 @@
 ;; Stolen from red gnus nntp.el
 (defun url-open-telnet (name buffer host service)
   (if (not (stringp service))
-      (setq service (into-to-string service)))
+      (setq service (int-to-string service)))
   (save-excursion
     (set-buffer (get-buffer-create buffer))
     (erase-buffer)