diff --git a/doc/xschem_man/developer_info.html b/doc/xschem_man/developer_info.html
index ba211b3a..6cb62ae2 100644
--- a/doc/xschem_man/developer_info.html
+++ b/doc/xschem_man/developer_info.html
@@ -730,6 +730,8 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
      <li><kbd> current_name </kbd> name of current design (no library path) </li>
      <li><kbd> current_win_path </kbd> path of current tab/window (.drw, .x1.drw, ...) </li>
      <li><kbd> currsch </kbd> hierarchy level of current schematic (start at 0) </li>
+     <li><kbd> cursor1_x </kbd> cursor 1 position </li>
+     <li><kbd> cursor2_x </kbd> cursor 2 position </li>
      <li><kbd> debug_var </kbd> debug level (0 = no debug, 1, 2, 3,...) </li>
      <li><kbd> draw_window </kbd> direct draw into window </li>
      <li><kbd> first_sel </kbd> get data about first selected object </li>
diff --git a/src/scheduler.c b/src/scheduler.c
index 847af295..bee72894 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -1196,13 +1196,13 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
             if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
             Tcl_SetResult(interp, my_itoa(xctx->currsch),TCL_VOLATILE);
           }
-          else if(!strcmp(argv[2], "cursor1_x")) {
+          else if(!strcmp(argv[2], "cursor1_x")) { /* cursor 1 position */
             char c[70];
             if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
             my_snprintf(c, S(c), "%g", xctx->graph_cursor1_x);
             Tcl_SetResult(interp, c, TCL_VOLATILE);
           }
-          else if(!strcmp(argv[2], "cursor2_x")) {
+          else if(!strcmp(argv[2], "cursor2_x")) { /* cursor 2 position */
             char c[70];
             if(!xctx) {Tcl_SetResult(interp, not_avail, TCL_STATIC); return TCL_ERROR;}
             my_snprintf(c, S(c), "%g", xctx->graph_cursor2_x);