diff --git a/src/xschem.tcl b/src/xschem.tcl
index 85efbe15..db9fc526 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -2878,7 +2878,7 @@ proc infowindow {} {
   set z {.infotext}
   if ![string compare $infotxt ""] { 
     if [winfo exists $z] {
-      $z.text delete 1.0 end
+      $z.f1.text delete 1.0 end
     }
   }
   if ![winfo exists $z] {