diff --git a/flow/scripts/open.tcl b/flow/scripts/open.tcl
index 70467963a4..4ef30068e4 100644
--- a/flow/scripts/open.tcl
+++ b/flow/scripts/open.tcl
@@ -57,6 +57,11 @@ proc read_timing {input_file} {
   puts "OK"
 }
 
+if {[ord::openroad_gui_compiled]} {
+  set db_basename [file rootname [file tail $input_file]]
+  gui::set_title "OpenROAD - $::env(PLATFORM)/$::env(DESIGN_NICKNAME)/$::env(FLOW_VARIANT) - ${db_basename}"
+}
+
 if {[env_var_equals GUI_TIMING 1]} {
   puts "GUI_TIMING=1 reading timing, takes a little while for large designs..."
   read_timing $input_file