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.3 2000/06/03 05:01:32 awb Exp $
+# RCS: @(#) $Id: remote.tcl,v 1.4 2000/06/06 22:01:41 aborr Exp $
 
 # load tls package
 package require tls
 
 # Initialize message delimitor
@@ -122,11 +122,11 @@
 	    break
 	}
     }
 }
 if {![info exists serverPort]} {
-    set serverPort 2048
+    set serverPort 8048
 }
 
 if {![info exists serverAddress]} {
     if {[info exists env(serverAddress)]} {
 	set serverAddress $env(serverAddress)