diff --git a/tcl/Sta.tcl b/tcl/Sta.tcl
index 5bc0a661..bc714b44 100644
--- a/tcl/Sta.tcl
+++ b/tcl/Sta.tcl
@@ -171,7 +171,7 @@ proc get_timing_edges_cmd { cmd cmd_args } {
     cmd_usage_error $cmd
   }
   if [info exists keys(-filter)] {
-    set arcs [filter_objs $keys(-filter) $arcs "timing arc" 541]
+    set arcs [filter_objs $keys(-filter) $arcs filter_timing_arcs "timing arc" 541]
   }
   return $arcs
 }