diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 # Revision history for pms-domain-model
 
+## 0.0.7.0 -- 2025-07-20
+
+* Added proc tool.
+
 ## 0.0.6.0 -- 2025-07-13
 
 * Added serial tool.
diff --git a/pms-domain-model.cabal b/pms-domain-model.cabal
--- a/pms-domain-model.cabal
+++ b/pms-domain-model.cabal
@@ -20,7 +20,7 @@
 -- PVP summary:     +-+------- breaking API changes
 --                  | | +----- non-breaking API additions
 --                  | | | +--- code changes with no API change
-version:            0.0.6.0
+version:            0.0.7.0
 
 -- A short (one-line) description of the package.
 synopsis:           pms-domain-model
diff --git a/src/PMS/Domain/Model/DM/Type.hs b/src/PMS/Domain/Model/DM/Type.hs
--- a/src/PMS/Domain/Model/DM/Type.hs
+++ b/src/PMS/Domain/Model/DM/Type.hs
@@ -630,7 +630,7 @@
 instance Default McpToolsCallResponseResult where
   def = McpToolsCallResponseResult {
         _contentMcpToolsCallResponseResult = def
-      , _isErrorMcpToolsCallResponseResult = def
+      , _isErrorMcpToolsCallResponseResult = False
       }
 
 
@@ -1148,6 +1148,12 @@
   | DefaultCmdRunCommand DefaultCmdRunCommandData
   deriving (Show, Read, Eq)
 
+-- |
+--
+getJsonRpcCmdRunCommand :: CmdRunCommand -> JsonRpcRequest
+getJsonRpcCmdRunCommand (EchoCmdRunCommand    d) = d^.jsonrpcEchoCmdRunCommandData
+getJsonRpcCmdRunCommand (DefaultCmdRunCommand d) = d^.jsonrpcDefaultCmdRunCommandData
+
 --------------------------------------------------------------------------------
 -- |
 --
@@ -1343,6 +1349,16 @@
   | SocketTelnetCommand  SocketTelnetCommandData
   deriving (Show, Read, Eq)
 
+-- |
+--
+getJsonRpcSocketCommand :: SocketCommand -> JsonRpcRequest
+getJsonRpcSocketCommand (SocketEchoCommand    d) = d^.jsonrpcSocketEchoCommandData
+getJsonRpcSocketCommand (SocketOpenCommand    d) = d^.jsonrpcSocketOpenCommandData
+getJsonRpcSocketCommand (SocketCloseCommand   d) = d^.jsonrpcSocketCloseCommandData
+getJsonRpcSocketCommand (SocketReadCommand    d) = d^.jsonrpcSocketReadCommandData
+getJsonRpcSocketCommand (SocketWriteCommand   d) = d^.jsonrpcSocketWriteCommandData
+getJsonRpcSocketCommand (SocketMessageCommand d) = d^.jsonrpcSocketMessageCommandData
+getJsonRpcSocketCommand (SocketTelnetCommand  d) = d^.jsonrpcSocketTelnetCommandData
 
 --------------------------------------------------------------------------------
 -- |
@@ -1417,6 +1433,17 @@
   | SerialWriteCommand   SerialWriteCommandData
   | SerialMessageCommand SerialMessageCommandData
   deriving (Show, Read, Eq)
+
+
+-- |
+--
+getJsonRpcSerialCommand :: SerialCommand -> JsonRpcRequest
+getJsonRpcSerialCommand (SerialEchoCommand    d) = d^.jsonrpcSerialEchoCommandData
+getJsonRpcSerialCommand (SerialOpenCommand    d) = d^.jsonrpcSerialOpenCommandData
+getJsonRpcSerialCommand (SerialCloseCommand   d) = d^.jsonrpcSerialCloseCommandData
+getJsonRpcSerialCommand (SerialReadCommand    d) = d^.jsonrpcSerialReadCommandData
+getJsonRpcSerialCommand (SerialWriteCommand   d) = d^.jsonrpcSerialWriteCommandData
+getJsonRpcSerialCommand (SerialMessageCommand d) = d^.jsonrpcSerialMessageCommandData
 
 --------------------------------------------------------------------------------
 -- |
diff --git a/src/PMS/Domain/Model/DS/Utility.hs b/src/PMS/Domain/Model/DS/Utility.hs
--- a/src/PMS/Domain/Model/DS/Utility.hs
+++ b/src/PMS/Domain/Model/DS/Utility.hs
@@ -84,7 +84,7 @@
 #ifdef mingw32_HOST_OS
   [ "&&", "||", "|", ".."]
 #else
-  [ "&&", "||", "|", "..", "/"]
+  [ "&&", "||", "|", ".."]
 #endif
 
 -- |