From 012903d98d7d61bec0638cb5522ef610f4d9d3f4 Mon Sep 17 00:00:00 2001
From: cascade <cascade@opencascade.com>
Date: Wed, 18 Feb 2004 10:12:43 +0000
Subject: [PATCH] BUC5100,BUC5101 Transition on STL stringstream instead
 obsolete sstream.  cxx, edl hxx cdl

---
 src/WOKTclTools/WOKTclTools_Interpretor.cxx | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/WOKTclTools/WOKTclTools_Interpretor.cxx b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
index 8f4c050..c669fd8 100755
--- a/src/WOKTclTools/WOKTclTools_Interpretor.cxx
+++ b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
@@ -4,6 +4,7 @@
 //		<jga@cobrax>
 
 #include <TCollection_HAsciiString.hxx>
+#include <Standard_Macro.hxx>
 
 #include <WOKTools_ReturnValue.hxx>
 #include <WOKTools_StringValue.hxx>
@@ -107,9 +108,9 @@ static Standard_Integer WOKCommand(ClientData clientData, Tcl_Interp *,
     catch (Standard_Failure) {
       Handle(Standard_Failure) E = Standard_Failure::Caught();
       
-      strstream astream;
+      Standard_SStream astream;
       astream << E << ends;
-      ErrorMsg << argv[0] << "Exception was raised : " << astream.str() << endm;
+      ErrorMsg << argv[0] << "Exception was raised : " << GetSString(astream) << endm;
       WOKUtils_ProcessManager::UnArm();
       return TCL_ERROR;
     }
-- 
2.39.5