diff --git a/src/Draw/Draw_Interpretor.cxx b/src/Draw/Draw_Interpretor.cxx
index 51e796eb96..571493a6c6 100755
--- a/src/Draw/Draw_Interpretor.cxx
+++ b/src/Draw/Draw_Interpretor.cxx
@@ -260,6 +260,8 @@ void Draw_Interpretor::Add(const Standard_CString n,
  
   Tcl_SetVar2(myInterp,"Draw_Files",pN,a_string,TCL_GLOBAL_ONLY);
 
+  delete [] a_string;
+
 }