;;; -*- Mode:LISP; Package:USER; Base:10; READTABLE:CL -*-

(fs:set-logical-pathname-host "BOXNET"
			      :physical-host
			      (car (send (send (fs:translated-pathname (fs:default-pathname)) :host) :host-names))
			      :translations '(("*;" "KEITH.NETWORKS;")))