title: Getting error as too many nested evaluations (infinite loop?)
body: <p>I have written known proc to handle some scenarios. I have written as </p>
  
  <pre><code>proc unknown args {
      if { ![regexp {65ABC::\w+\s.*} $args] } {
          uplevel 1 [list _unknown $args]
      }
  }
  </code></pre>
  
  <p>When i am typing some wrong command say <code>acbsv</code> in TCL, it is throwing an error as</p>
  
  <pre><code>too many nested evaluations (infinite loop?)
  </code></pre>
  
  <p>Solution: If i am adding the command</p>
  
  <pre><code>rename unknown _unknown
  </code></pre>
  
  <p>It is working but don't why I am getting the error and why it is getting resolved when I am adding <code>rename</code> command</p>