diff --git a/doc/manpages/xschem.1.in b/doc/manpages/xschem.1.in
index 2eaad432..fb78049a 100644
--- a/doc/manpages/xschem.1.in
+++ b/doc/manpages/xschem.1.in
@@ -66,6 +66,10 @@ Set netlist type to Verilog.
 Execute specified tcl instructions before any other action, this can be used to change xschemrc variables.
 .TP
 
+.B --command <tcl_cmd>
+Execute specified tcl commands after completing startup.
+.TP
+
 .B --script <file>
 Execute specified tcl file as a command script (perhaps with xschem  commands).
 .TP
@@ -94,6 +98,10 @@ Set netlist type to tEDAx.
 Set netlist type to SPICE.
 .TP
 
+.B -y, --symbol
+Set netlist type to symbol global property edit.
+.TP
+
 .B -x, --no_x
 Dont use X (only command mode).
 .TP
diff --git a/doc/xschem_man/run_xschem.html b/doc/xschem_man/run_xschem.html
index fd0a4bf5..e41579ff 100644
--- a/doc/xschem_man/run_xschem.html
+++ b/doc/xschem_man/run_xschem.html
@@ -57,6 +57,7 @@ Options:
   -w  --verilog        Set netlist type to Verilog.
   --tcl &lt;tcl_script&gt;   Execute specified tcl instructions before any other action,
                        this can be used to change xschemrc variables.
+  --command &lt;tcl_cmd&gt;  Execute specified tcl commands after completing startup.
   --script &lt;file&gt;      Execute specified tcl file as a command script (perhaps with xschem  commands).
   --tcp_port &lt;number&gt;  Listen to specified tcp port for client connections. (number &gt;=1024).
   -i  --no_rcload      Do not load any xschemrc file.
diff --git a/src/globals.c b/src/globals.c
index cead1ddf..b5bc7566 100644
--- a/src/globals.c
+++ b/src/globals.c
@@ -184,6 +184,7 @@ char cli_opt_netlist_dir[PATH_MAX] = "";
 char cli_opt_filename[PATH_MAX] = ""; /* filename given on cmdline */
 int cli_opt_no_readline=0;
 char *cli_opt_tcl_command = NULL; /* tcl command given on command line with --tcl <script> */
+char *cli_opt_tcl_post_command = NULL; /* tcl command given on command line with --command <script> */
 int cli_opt_do_print=0;
 int cli_opt_do_netlist=0;  /* set by process_options if user wants netllist from cmdline */
 int cli_opt_do_simulation=0;
diff --git a/src/options.c b/src/options.c
index cb7281b2..a381012c 100644
--- a/src/options.c
+++ b/src/options.c
@@ -77,6 +77,10 @@ static void check_opt(char *opt, char *optval, int type)
         dbg(1, "process_options(): passing tcl script file  to interpreter: %s\n", optval);
         if(optval) my_strncpy(cli_opt_tcl_script, optval, S(cli_opt_tcl_script));
 
+    } else if( (type == LONG && !strcmp("command", opt)) ) {
+        dbg(1, "process_options(): passing tcl command to interpreter: %s\n", optval);
+        if(optval)  my_strdup(661, &cli_opt_tcl_post_command, optval);
+
     } else if( (type == LONG && !strcmp("tcp_port", opt)) ) {
         dbg(1, "process_options(): setting tcp port: %s\n", optval);
         if(optval) tcp_port=atoi(optval);
@@ -179,6 +183,9 @@ int process_options(int argc, char *argv[])
             else if(!strcmp("script", opt)) {
               optval = argv[++i];
             }
+            else if(!strcmp("command", opt)) {
+              optval = argv[++i];
+            }
             else if(!strcmp("tcp_port", opt)) {
               optval = argv[++i];
             }
diff --git a/src/scheduler.c b/src/scheduler.c
index b93de587..4915f900 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -1244,6 +1244,9 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
     else if(!strcmp(argv[1],"hier_psprint"))
     {
       cmd_found = 1;
+      if(argc > 2) {
+        my_strncpy(xctx->plotfile, argv[2], S(xctx->plotfile));
+      }
       hier_psprint();
       Tcl_ResetResult(interp);
     }
diff --git a/src/xinit.c b/src/xinit.c
index 5096fb4a..39de1267 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -687,6 +687,7 @@ static void xwin_exit(void)
  }
  my_free(1122, &pixdata);
  my_free(1138, &cli_opt_tcl_command);
+ my_free(1070, &cli_opt_tcl_post_command);
  clear_expandlabel_data();
  get_sym_template(NULL, NULL); /* clear static data in function */
  list_tokens(NULL, 0); /* clear static data in function */
@@ -2317,16 +2318,20 @@ int Tcl_AppInit(Tcl_Interp *inter)
    tcleval(str);
  }
 
- if(quit) {
-   tcleval("exit");
- }
-
-
  /* load additional files */
  if(has_x) for(i = 2; i < cli_opt_argc; i++) {
    tclvareval("xschem load_new_window ",  cli_opt_argv[i], NULL);
  }
 
+ /* Execute tcl script given on command line with --command */
+ if(cli_opt_tcl_post_command) {
+   tcleval(cli_opt_tcl_post_command);
+ }
+
+ if(quit) {
+   tcleval("exit");
+ }
+
 
  /* */
  /*  END PROCESSING USER OPTIONS */
diff --git a/src/xschem.h b/src/xschem.h
index 74c1b795..6e42247a 100644
--- a/src/xschem.h
+++ b/src/xschem.h
@@ -1000,6 +1000,7 @@ extern char cli_opt_netlist_dir[PATH_MAX];
 extern char cli_opt_filename[PATH_MAX];
 extern int cli_opt_no_readline;
 extern char *cli_opt_tcl_command;
+extern char *cli_opt_tcl_post_command;
 extern int cli_opt_do_print;
 extern int cli_opt_do_netlist;
 extern int cli_opt_do_simulation;
diff --git a/src/xschem.help b/src/xschem.help
index 426129e9..e6bdf355 100644
--- a/src/xschem.help
+++ b/src/xschem.help
@@ -9,9 +9,10 @@ Options:
                        (spice/Verilog/VHDL, depending on the netlist 
                        type chosen).
   -w  --verilog        Set netlist type to Verilog.
-  --tcl <tcl_script>   Execute specified tcl instructions before any other action,
+  --tcl <tcl_cmd>      Execute specified tcl instructions before any other action,
                        this can be used to change xschemrc variables.
   --script <file>      Execute specified tcl file as a command script (perhaps with xschem  commands).
+  --command <tcl_cmd>  Execute specified tcl commands after completing startup.
   --tcp_port <number>  Listen to specified tcp port for client connections. (number >=1024).
   -i  --no_rcload      Do not load any xschemrc file.
   --netlist_path <path>