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.11 2000/06/06 22:18:10 aborr Exp $
+# RCS: @(#) $Id: tlsIO.test,v 1.12 2000/06/07 01:32:22 aborr Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -268,11 +268,11 @@
     set f [open script w]
     puts $f {
     	package require tls
 	set timer [after 2000 "set x timed_out"]
     }
-    puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey $tlsServerPort \]"
+    puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 8828 \]"
     puts $f {
 	proc accept {file addr port} {
 	    global x
 	    set x done
             close $file
@@ -285,11 +285,11 @@
     }
     close $f
     set f [open "|[list $::tcltest::tcltest script]" r]
     gets $f x
     if {[catch {tls::socket -certfile $clientCert -cafile $caCert \
-	-keyfile $clientKey 127.0.0.1 $tlsServerPort} msg]} {
+	-keyfile $clientKey 127.0.0.1 8828} msg]} {
         set x $msg
     } else {
         lappend x [gets $f]
         close $msg
     }