--- a/tj.tcl	Thu Apr 30 20:51:16 2020 +0300
+++ b/tj.tcl	Thu Apr 30 20:51:33 2020 +0300
@@ -79,6 +79,7 @@
   set foo [split $uargs " "]
   set tjdays [lindex $foo 0]
   set tjhours [lindex $foo 1]
+
   if {$tjdays == ""} {
     tj_smsg $uchan "Hälärm."
     return 1
@@ -106,7 +107,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
@@ -131,12 +132,12 @@
   # Tarkistetaan onko kayttaja OK
   if {![validuser $ihandle]} {
     if {$ichan == ""} {
-      return "$ihandle, Mene pois."
+      return "${ihandle}, Mene pois."
     } else {
       if {$ihandle == "*"} {
         return "En tiedä kuka olet, mene pois."
       } else {
-        return "En tiedä kuka $ihandle on."
+        return "En tiedä kuka ${ihandle} on."
       }
     }
   }
@@ -176,21 +177,21 @@
   }
 
   set lause ""
-  tj_append lause $vuodet "$vuodet vuotta" ""
-  tj_append lause $aamut "$aamut aamua" ", "
-  tj_append lause $tunnit "$tunnit tuntia" " ja "
+  tj_append lause $vuodet "${vuodet} vuotta" ""
+  tj_append lause $aamut "${aamut} aamua" ", "
+  tj_append lause $tunnit "${tunnit} tuntia" " ja "
 
   if {$aamut == 0 && $deltatj > 0} {
     if {$tunnit == 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])"
     }
   }