diff --git a/lib/test_more.tcl b/lib/test_more.tcl
index de06f5e..0d1f39d 100644
--- a/lib/test_more.tcl
+++ b/lib/test_more.tcl
@@ -86,7 +86,7 @@ proc pass {{description ""} {special ""}} {
 }
 
 proc like {value regexp {description ""}} {
-   if ([regexp $regexp $value]) {
+   if {[regexp $regexp $value]} {
      pass $description
    } else {
      is "STRING: $value" "REGEXP: $regexp" $description