--- a/tj.tcl	Fri Jan 23 10:57:47 2015 +0200
+++ b/tj.tcl	Fri Jan 23 11:01:53 2015 +0200
@@ -80,7 +80,7 @@
   set tjdays [lindex $foo 0]
   set tjhours [lindex $foo 1]
   if {$tjdays == ""} {
-    tj_smsg $uchan "Hälärm."
+    tj_smsg $uchan "Hälärm."
     return 1  
   }
 
@@ -106,7 +106,7 @@
   global tj_dateident
 
   if {![validuser $uuser]} {
-    return "Tuntematon käyttäjä $uuser."
+    return "Tuntematon käyttäjä $uuser."
   }
 
   setuser $uuser XTRA $tj_dateident $udate
@@ -134,9 +134,9 @@
       return "$ihandle, Mene pois."
     } else {
       if {$ihandle == "*"} {
-        return "En tiedä kuka olet, mene pois."
+        return "En tiedä kuka olet, mene pois."
       } else {
-        return "En tiedä kuka $ihandle on."
+        return "En tiedä kuka $ihandle on."
       }
     }
   }
@@ -147,7 +147,7 @@
   set tjpaiva [getuser $chandle XTRA $tj_dateident]
   
   if {$tjpaiva == ""} {
-    return "$chandle ei ole asettanut itselleen TJ päivämäärää."
+    return "$chandle ei ole asettanut itselleen TJ päivämäärää."
   }
 
   # Lasketaan tamanhetkinen TJ aika
@@ -168,11 +168,11 @@
 
   # Maaritetaan sanalause
   if {$ichan != ""} {
-    set tjmt "$chandle:lla on"
-    set tjmi "$chandle on"
+    set tjmt "${chandle}:lla on"
+    set tjmi "${chandle} on"
   } else {
     set tjmt "Sinulla on"
-    set tjmi "Sinä olet"
+    set tjmi "Sinä olet"
   }
 
   set lause ""
@@ -182,15 +182,15 @@
 
   if {$aamut == 0 && $deltatj > 0} {
     if {$tunnit == 0} {  
-      return "$tjmt TOSI WÄINÖ! TJ 0!!"
+      return "$tjmt TOSI WÄINÖ! TJ 0!!"
     } else {
-      return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!"
+      return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!"
     }
   } else {
     if {$deltatj > 0} {
-      return "$tjmt $lause jäljellä... ([tj_ctime $tjpaiva])"
+      return "$tjmt $lause jäljellä... ([tj_ctime $tjpaiva])"
     } else {
-      return "$tjmi ollut reservissä jo $lause! ([tj_ctime $tjpaiva])"
+      return "$tjmi ollut reservissä jo $lause! ([tj_ctime $tjpaiva])"
     }
   }