diff --git a/inout.c b/inout.c
index 3ba32ba7..0258bc81 100644
--- a/inout.c
+++ b/inout.c
@@ -2,12 +2,10 @@
 ** inout.c
 ** Provide function to realise the input/output function and debugger 
 ** facilities.
-**
-** Waldemar Celes Filho
-** TeCGraf - PUC-Rio
-** 11 May 93
 */
 
+char *rcs_inout="$Id: $";
+
 #include <stdio.h>
 #include <string.h>
 
@@ -96,6 +94,7 @@ void lua_closefile (void)
 {
  if (fp != NULL)
  {
+  lua_delfile();
   fclose (fp);
   fp = NULL;
  }
@@ -118,6 +117,14 @@ int lua_openstring (char *s)
  return 0;
 }
 
+/*
+** Function to close an opened string
+*/
+void lua_closestring (void)
+{
+ lua_delfile();
+}
+
 /*
 ** Call user function to handle error messages, if registred. Or report error
 ** using standard function (fprintf).