diff --git a/src/actions.c b/src/actions.c
index 0c07b522..deb0ddb5 100644
--- a/src/actions.c
+++ b/src/actions.c
@@ -1358,6 +1358,7 @@ void delete_files(void)
 
 void place_net_label(int type)
 {
+  unselect_all(1);
   if(type == 1) {
       const char *lab = tcleval("rel_sym_path [find_file_first lab_pin.sym]");
       place_symbol(-1, lab, xctx->mousex_snap, xctx->mousey_snap, 0, 0, NULL, 4, 1, 1/*to_push_undo*/);
diff --git a/src/scheduler.c b/src/scheduler.c
index b2d653fd..ce2e051e 100644
--- a/src/scheduler.c
+++ b/src/scheduler.c
@@ -2602,7 +2602,6 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
     if(!strcmp(argv[1], "net_label"))
     {
       if(argc > 2) {
-        unselect_all(1);
         place_net_label(atoi(argv[2]));
       }
     }
diff --git a/src/select.c b/src/select.c
index 5ad9339e..4441f0db 100644
--- a/src/select.c
+++ b/src/select.c
@@ -1632,12 +1632,15 @@ int floaters_from_selected_inst()
         create_text(0, x0, y0, rot, flip, symtxt->txt_ptr, 
               subst_token(symtxt->prop_ptr, "name", xctx->inst[i].instname),
               symtxt->xscale, symtxt->yscale);
-        
-        set_text_flags(symtxt);
+        xctx->text[xctx->texts - 1].sel = SELECTED;
+        set_text_flags(&xctx->text[xctx->texts - 1]);
         dbg(1, "instance %d: symtext %d: %s\n", i, t, symtxt->txt_ptr);
       }
     }
   }
+  xctx->need_reb_sel_arr=1;
+  rebuild_selected_array();
+  draw();
   return res;
 }
 
diff --git a/src/xschem.tcl b/src/xschem.tcl
index bf0b2502..ff1935a2 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -6880,6 +6880,12 @@ proc build_widgets { {topwin {} } } {
           -command "schpins_to_sympins" -accelerator Alt+H
   $topwin.menubar.sym.menu add command -label "Place symbol pin" \
           -command "xschem add_symbol_pin" -accelerator Alt+P
+  $topwin.menubar.sym.menu add command -label "Place net pin label" \
+          -command "xschem net_label 1" -accelerator Alt+L
+  $topwin.menubar.sym.menu add command -label "Place net wire label" \
+          -command "xschem net_label 0" -accelerator Alt-Shift-L
+  $topwin.menubar.sym.menu add command -label "Change selected inst. texts to floaters" \
+          -command "xschem floaters_from_selected_inst"
   $topwin.menubar.sym.menu add command -label "Print list of highlight nets" \
           -command "xschem print_hilight_net 1" -accelerator J
   $topwin.menubar.sym.menu add command -label "Print list of highlight nets, with buses expanded" \