Index: tol_tests/tol/Bugzilla/bug_001563/createOisDir.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001563/createOisDir.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
+++ tol_tests/tol/Bugzilla/bug_001563/createOisDir.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
@@ -0,0 +1,7 @@
+  Set justOneBigMat = [[
+    Matrix Rand(11000, 10000, 0, 1)
+  ]];
+  
+// El tamaño del conjunto quizá puede depender de la RAM del equipo
+  Real Ois.Store(justOneBigMat, "justOneBigMat");
+
Index: tol_tests/tol/Bugzilla/bug_001563/loadOisDir.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001563/loadOisDir.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
+++ tol_tests/tol/Bugzilla/bug_001563/loadOisDir.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
@@ -0,0 +1,1 @@
+Set Ois.Load("justOneBigMat");
Index: tol_tests/tol/Bugzilla/bug_001563/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001563/test.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
+++ tol_tests/tol/Bugzilla/bug_001563/test.tol	(revision 818d6a41381ae742b8f40df40ac7f9a3f338438f)
@@ -0,0 +1,39 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a resolved bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary 
+  Real bugNum_ = 1563;
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text summary_ = "Errores críticos guardando archivos OZA";
+  Text link_ = GetTolBugzillaLink(bugNum_);
+
+//Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+  Real numWar0 = Copy(NWarning);
+
+  Real If(!OSDirExist("justOneBigMat.ois"), { 
+    Set Include("createOisDir.tol");
+    True
+  });
+  Set Include("loadOisDir.tol");
+
+  Real numErr1 = Copy(NError);
+  Real numWar1 = Copy(NWarning);
+
+  Set partialResults_ = [[ numErr0,numErr1, numWar0, numWar1]];
+
+//This is a messure of the success of the test 
+  Real quality_ = ( 
+   numErr1 == numErr0, 
+   numWar1 == numWar0
+   );
+
+//Return the results 
+  Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_