@@ -96,12 +96,13 @@
 		  (port  (caddr server-dat))
                   (server-id (caddr (cddr server-dat))))
 	      (debug:print-info 4 *default-log-port* "client:setup server-dat=" server-dat ", remaining-tries=" remaining-tries)
 	      (if (and (not area-dat)
 		       (not *runremote*))
-                  (begin       
-		    (set! *runremote* (make-remote))
+                  (begin
+		    ;; POSSIBLE BUG. I removed the full initialization call. mrw
+		    (set! *runremote* (make-remote)) ;; (create-remote-record))
                     (let* ((server-info (remote-server-info *runremote*))) 
                       (if server-info
                         (begin
                           (remote-server-url-set! *runremote* (server:record->url server-info))
                           (remote-server-id-set! *runremote* (server:record->id server-info)))))))