Fix: actions with parenthesis broke the rdbg plugin

lib/sasa/sasaRun.ml

-
+open Sasacore
 (* open SasArg *)
  
 let (get_action_value : (string * Data.v) list -> string -> string -> bool) =
   fun sl pid a ->
-    let vn = Printf.sprintf "%s_%s" pid a in
+    let vn = Printf.sprintf "%s_%s" pid (StringOf.action a) in
     match List.assoc_opt vn sl with
     | Some (Data.B b) -> b
     | None 
@@ -32,7 +32,7 @@ let (get_sl_out: bool -> 'v Process.t list -> bool list list -> RdbgPlugin.sl) =
     List.flatten (
       List.map2 (fun p enab_l ->
           List.map2 (fun a enab ->
-              Printf.sprintf "%s%s_%s" str p.pid a, Data.B enab)
+              Printf.sprintf "%s%s_%s" str p.pid (StringOf.action a), Data.B enab)
             p.actions enab_l)
         pl ll
     )