Index: tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl
===================================================================
--- tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl	(revision 85934974b19ef3e045376f502cc5107f4a9e32a4)
+++ tolsh/tolsh.vfs/lib/app-tolsh/tolsh.tcl	(revision d2cf6f7b992368d3821692535647efd888efbf3f)
@@ -30,5 +30,5 @@
   # By default load initLibrary
   #
-  set options(lang)    0
+  set options(lang)    ""
   set options(initlib) 1
   set options(iniproject) 1
@@ -83,11 +83,12 @@
   set i 0
   while {$i < $num} {
+    logtmp "set item [lindex $cmdline $i]"
     set item [lindex $cmdline $i]
     if {[string index $item 0] eq "-"} {
       set opt [string range $item 1 end]
       if {$opt eq "e" || $opt eq "en"} {
-        set $options(lang) 0
+        set options(lang) "en"
       } elseif {$opt eq "s" || $opt eq "sp"} {
-        set $options(lang) 1
+        set options(lang) "es"
       } elseif {$opt eq "i"} {
         # initLibrary should not be loaded
@@ -95,5 +96,5 @@
         set options(initlib) 0
       } elseif {$opt eq "np"} {
-        set $options(iniproject) 0
+        set options(iniproject) 0
       } elseif {[string index $opt 0] eq "c"} {
         if {[string length $opt]>1} {
@@ -396,10 +397,11 @@
   #
   if {$options(runmode) != "server" && $options(runmode) != "shared"} {
-    if {[info exist ::env(USE_TOLTCL_202)]} {
-      puts "requested to load Toltcl from $::env(USE_TOLTCL_202)"
+    if {[info exist ::env(USE_TOLTCL_31)]} {
+      puts "requested to load Toltcl from $::env(USE_TOLTCL_31)"
       load $::env(USE_TOLTCL_202)
     } else {
       package require -exact Toltcl 3.1
     }
+    #puts "tol::initkernel $options(lang) $options(vmode)"
     tol::initkernel $options(lang) $options(vmode)
 
@@ -407,5 +409,8 @@
       tol::initlibrary $options(iniproject)
     }
-
+    # why should I do that?
+    if { $options(lang) ne "" } {
+      ::tol::language $options(lang)
+    }
     set appdata [string trim \
                [lindex [::tol::info var [list Text TolAppDataPath]] 2] \"]
@@ -465,13 +470,13 @@
     
   } elseif {$options(runmode) eq "server"} {
-    puts "runmode=server"
+    #puts "runmode=server"
     run_as_server $tolcomm_dir
     
   } elseif {$options(runmode) eq "shared"} {
-    puts "runmode=shared"
+    #puts "runmode=shared"
     run_as_shared $tolcomm_dir
   
   } elseif {$options(runmode) eq "slave"} {
-    puts "runmode=slave"
+    #puts "runmode=slave"
     run_as_slave $tolcomm_dir   
   }
@@ -579,5 +584,5 @@
 
 proc logtmp { msg } {
-  return 
+  return
   set user $::tcl_platform(user)
   set fd [ open "/tmp/tolsh.${user}.log" a ]