diff --git a/scripts/alltools.tcl b/scripts/alltools.tcl
index 2eee787d8..58b50bdce 100644
--- a/scripts/alltools.tcl
+++ b/scripts/alltools.tcl
@@ -465,7 +465,7 @@ proc achannels {{attr ""}} {
   } else {
     if {[catch {set atype [chansettype $attr]}]} { set atype "unknow" }
     if {$atype ne "flag"} {
-      throw {TCL ATTRUNK "$attr is unknow or not flag attribute"} "$attr is unknow or not flag attribute"
+      throw {TCL ATTRUNK "$attr is unknown or not flag attribute"} "$attr is unknown or not flag attribute"
       return
     }
     foreach c [channels] {
@@ -473,4 +473,4 @@ proc achannels {{attr ""}} {
     }
   }
   return $achans
-}
\ No newline at end of file
+}