Index: tests/remote.tcl
==================================================================
--- tests/remote.tcl
+++ tests/remote.tcl
@@ -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.5 2000/07/27 01:58:19 hobbs Exp $
+# RCS: @(#) $Id: remote.tcl,v 1.6 2004/02/11 22:41:25 razzell Exp $
 
 # load tls package
 package require tls
 
 # Initialize message delimitor
@@ -172,14 +172,14 @@
 }
 
 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]
+set serverKey	[file join $certsDir server.key]
 if {[catch {set serverSocket \
 	[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__
 }

Index: tests/tlsIO.test
==================================================================
--- tests/tlsIO.test
+++ tests/tlsIO.test
@@ -8,11 +8,11 @@
 # Copyright (c) 1998-2000 Ajuba Solutions. 
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tlsIO.test,v 1.20 2003/12/15 18:46:20 razzell Exp $
+# RCS: @(#) $Id: tlsIO.test,v 1.21 2004/02/11 22:41:25 razzell Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -211,11 +211,11 @@
 	if {[eof $commandSocket]} {
 	    error "remote server disappeared"
 	}
 
 	if {[catch {puts $commandSocket $c} msg]} {
-	    error "remote server disappaered: $msg"
+	    error "remote server disappeared: $msg"
 	}
 	if {[catch {puts $commandSocket "--Marker--Marker--Marker--"} msg]} {
 	    error "remote server disappeared: $msg"
 	}
 
@@ -245,12 +245,12 @@
 	sendCommand {
 	    set certsDir	[file join [file dirname [info script]] certs]
 	    set serverCert	[file join $certsDir server.pem]
 	    set clientCert	[file join $certsDir client.pem]
 	    set caCert		[file join $certsDir cacert.pem]
-	    set serverKey	[file join $certsDir skey.pem]
-	    set clientKey	[file join $certsDir ckey.pem]
+	    set serverKey	[file join $certsDir server.key]
+	    set clientKey	[file join $certsDir client.key]
 	}
     }
 }
 
 test tlsIO-1.1 {arg parsing for socket command} {socket} {