diff --git a/src/callback.c b/src/callback.c
index 346f6f63..8b702791 100644
--- a/src/callback.c
+++ b/src/callback.c
@@ -4359,6 +4359,7 @@ static void handle_button_release(int event, KeySym key, int state, int button,
      int savesem = xctx->semaphore;
      move_objects(ABORT, 0, 0.0, 0.0);
      unselect_all(1);
+     xctx->drag_elements = 0; /* after ctrl-Button1Press on a launcher need to clear this */
      select_object(xctx->mousex, xctx->mousey, SELECTED, 0, NULL);
      rebuild_selected_array();
      xctx->semaphore = 0;
diff --git a/src/scheduler.c b/src/scheduler.c
index 4d464966..bcd97afe 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -2103,6 +2103,7 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
       my_snprintf(res, S(res), "semaphore=%d\n", xctx->semaphore); Tcl_AppendResult(interp, res, NULL);
       my_snprintf(res, S(res), "ui_state=%d\n", xctx->ui_state); Tcl_AppendResult(interp, res, NULL);
       my_snprintf(res, S(res), "ui_state2=%d\n", xctx->ui_state2); Tcl_AppendResult(interp, res, NULL);
+      my_snprintf(res, S(res), "drag_elements=%d\n", xctx->drag_elements); Tcl_AppendResult(interp, res, NULL);
       my_snprintf(res, S(res), "last_command=%d\n", xctx->last_command); Tcl_AppendResult(interp, res, NULL);
       my_snprintf(res, S(res), "prep_net_structs=%d\n", xctx->prep_net_structs); Tcl_AppendResult(interp, res, NULL);
       my_snprintf(res, S(res), "prep_hi_structs=%d\n", xctx->prep_hi_structs); Tcl_AppendResult(interp, res, NULL);