diff --git a/restore_ports/restore_ports.tcl b/restore_ports/restore_ports.tcl
index adf3a57..038bbca 100755
--- a/restore_ports/restore_ports.tcl
+++ b/restore_ports/restore_ports.tcl
@@ -291,6 +291,7 @@ if {[llength $::argv] == 0} {
 } else {
     set filename [lindex $::argv 0]
 }
+ui_msg "Reading and sorting port list from $filename ..."
 set portList [read_portlist $filename]
 #ui_msg "portlist = $portList"