Index: trunk/MagicSoft/Mars/macros/sql/readrbk.C
===================================================================
--- trunk/MagicSoft/Mars/macros/sql/readrbk.C	(revision 4443)
+++ trunk/MagicSoft/Mars/macros/sql/readrbk.C	(revision 4513)
@@ -51,12 +51,17 @@
     TSQLRow *row;
 
-    TList rows;
+    Bool_t rc = kFALSE;
     while (row=res->Next())
     {
         if ((*row)[0])
-            return kTRUE;
+        {
+            rc = kTRUE;
+            break;
+        }
     }
 
-    return kFALSE;
+    delete res;
+
+    return rc;
 }
 
@@ -146,8 +151,12 @@
         query += "\");";
 
-        if (!serv->Query(query))
+        TSQLResult *res = serv->Query(query);
+        if (!res)
             cout << "ERROR: " << query << endl << endl;
         else
+        {
+            delete res;
             num++;
+        }
 
         entry = "";