diff --git a/doc/xschem_man/developer_info.html b/doc/xschem_man/developer_info.html
index 9a847521..5db37d02 100644
--- a/doc/xschem_man/developer_info.html
+++ b/doc/xschem_man/developer_info.html
@@ -779,6 +779,7 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
      <li><kbd> lastsel </kbd> number of selected objects </li>
      <li><kbd> line_width </kbd> get line width </li>
      <li><kbd> lines </kbd> (xschem get lines n) number of lines on layer 'n' </li>
+     <li><kbd> modified </kbd> schematic is in modified state (needs a save) </li>
      <li><kbd> netlist_name </kbd> netlist name if set. If 'fallback' given get default name </li>
      <li><kbd> netlist_type </kbd> get current netlist type (spice/vhdl/verilog/tedax) </li>
      <li><kbd> no_draw </kbd> disable drawing </li>
diff --git a/src/scheduler.c b/src/scheduler.c
index 96a29a6b..1dd19499 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -1455,6 +1455,12 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
             }
           }
           break;
+          case 'm':
+          if(!strcmp(argv[2], "modified")) { /* schematic is in modified state (needs a save) */
+            if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
+            Tcl_SetResult(interp, my_itoa(xctx->modified),TCL_VOLATILE);
+          }
+          break;
           case 'n':
           if(!strcmp(argv[2], "netlist_name")) { /* netlist name if set. If 'fallback' given get default name */
             if(argc > 3 &&  !strcmp(argv[3], "fallback")) {
@@ -2103,7 +2109,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
       if(argc > 2 ) {
         set_title = atoi(argv[2]);
       }
-      if((xctx->semaphore == 0)) go_back(1, set_title);
+      if((xctx->semaphore == 0)) go_back(0, set_title);
       Tcl_ResetResult(interp);
     }