@@ -7,11 +7,11 @@
 # Copyright (c) 1995-1996 Sun Microsystems, Inc.
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: remote.tcl,v 1.4 2000/06/06 22:01:41 aborr Exp $
+# RCS: @(#) $Id: remote.tcl,v 1.4.2.1 2000/07/21 05:32:57 hobbs Exp $
 
 # load tls package
 package require tls
 
 # Initialize message delimitor
@@ -169,26 +169,17 @@
     puts ""
     puts -nonewline "Type Ctrl-C to terminate--> "
     flush stdout
 }
 
+set certsDir	[file join [file dirname [info script]] certs]
+set serverCert	[file join $certsDir server.pem]
+set caCert	[file join $certsDir cacert.pem]
+set serverKey	[file join $certsDir skey.pem]
 if {[catch {set serverSocket \
-    [tls::socket -myaddr $serverAddress -server __accept__ \
-    	-cafile [file join [pwd] certs cacert.pem] \
-    	-certfile [file join [pwd] certs server.pem] \
-    	-keyfile [file join [pwd] certs skey.pem] \
+	[tls::socket -myaddr $serverAddress -server __accept__ \
+	-cafile $caCert -certfile $serverCert -keyfile $serverKey \
 	$serverPort]} msg]} {
     puts "Server on $serverAddress:$serverPort cannot start: $msg"
 } else {
     vwait __server_wait_variable__
 }
-
-
-
-
-
-
-
-
-
-
-