diff --git a/src/xschem.tcl b/src/xschem.tcl
index 8f1ffb8a..29d704ed 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8731,7 +8731,7 @@ proc select_raw {} {
   } 
   if {[info exists has_x]} {
     set filename [tk_getOpenFile -title "Select file" -multiple 0 -initialdir $netlist_dir \
-            -initialfile [file tail $filename]  -filetypes $types]
+            -parent .graphdialog -initialfile [file tail $filename]  -filetypes $types]
   }
   return $filename
 }