diff --git a/tcl/seamancom.tcl b/tcl/seamancom.tcl
index 715f78d..67561c5 100644
--- a/tcl/seamancom.tcl
+++ b/tcl/seamancom.tcl
@@ -390,8 +390,6 @@ proc samenv args {
 }
 
 namespace eval inst_select {
-  variable home HOME
-  variable instrument ""
 
 clientput "REORDER web_ports"
 
@@ -400,8 +398,6 @@ clientput "REORDER web_ports"
   }
 
   proc instrument {instr} {
-    variable instrument
-    set instrument $instr
   }
 
   proc seaweb {instr port {host ""}} {
@@ -409,12 +405,12 @@ clientput "REORDER web_ports"
   }
 
   proc sea {mode sea graph web} {
-    variable instrument
-    seaweb $instrument $web
   }
 
   proc schedule_cron args {}
   proc writeServer args {}
+
+  set mrc stdout
   source ../../monitconfig
 
   web_ports makeitem test TEST