diff --git a/tcl/luft.tclsh b/tcl/luft.tclsh
index c579f05..1991ce2 100755
--- a/tcl/luft.tclsh
+++ b/tcl/luft.tclsh
@@ -74,7 +74,7 @@ if {$sea(debug) eq "1"} {
 }
 
 # connect to sea server prep0
-set sea(sock) [socket samenv.psi.ch 8640]
+set sea(sock) [socket linse-c.psi.ch 8640]
 fileevent $sea(sock) readable readsea
 if {$sea(debug)} {
   seacom "seauser seaser"