Index: tolbase/lib/toltk/tolbase.tcl
===================================================================
--- tolbase/lib/toltk/tolbase.tcl	(revision 0bb1f944a91948e957b05a32dbda3e84119b3546)
+++ tolbase/lib/toltk/tolbase.tcl	(revision 9be00e85758710709964d3ed2def81736c215ca6)
@@ -204,4 +204,14 @@
   bind . <Control-Key-k> +::tol::stop
   bind Text <Control-Key-k> ""
+  bind Text <Shift-Control-slash> {
+    set start [ %W index sel.first ]
+    set end [ %W index sel.last ]
+    set selection [ %W get $start $end ]
+    if { [ regsub -all {\\} $selection {/} changed ] } {
+      %W delete $start $end
+      %W insert $start $changed
+    }
+    break
+  }
   return $path
 }