Index: tolsh/tolsh.vfs/lib/tolcomm/tolshared.tcl
===================================================================
--- tolsh/tolsh.vfs/lib/tolcomm/tolshared.tcl	(revision 10a207c91db2f93090f2c1bbf8595cdc6391d16d)
+++ tolsh/tolsh.vfs/lib/tolcomm/tolshared.tcl	(revision a168f52b60243d0c4c4cbf84a4036c8fb5c2689e)
@@ -22,5 +22,5 @@
 #
 ###############################################################################
-proc ::tolshared::start {} {
+proc ::tolshared::start { port datadir } {
   global tqs_info
   package require Mk4tcl
@@ -28,7 +28,8 @@
 
   puts "::tolshared::start"
-  mk::file open tqs tequilas.dat -nocommit
+  # OJO: este archivo hay abrirlo en algun directorio controlado
+  mk::file open tqs [ file join $datadir tequilas.${port}.dat ] -nocommit
   set tqs_info(verbose) 0     ;# default logging is off
   TqsTimer ""                 ;# default commit timer is 30 seconds
-  tqsRun 20458                ;# default port is 20458
+  tqsRun $port                ;# default port is 20458
 }