Index: tol/stdlib/TolPackage/client.tol
===================================================================
--- tol/stdlib/TolPackage/client.tol	(revision 293e01a745e60c70404745746f972fae7d8b4ecd)
+++ tol/stdlib/TolPackage/client.tol	(revision c363c8ff42b6e42d93ac26d2a3a169222f053c8a)
@@ -136,5 +136,7 @@
     Real OSDirRemove(folder);
     Real PackArchive::UnpackFull("ZipArchive", folder, True);
-    FileExist(folder<<"/"<<packageName+".oza")
+    If(FileExist(folder<<"/"<<packageName+".oza"), {
+      Real UpdateCatalog(?);
+    1}, 0)
   };
 
@@ -166,7 +168,12 @@
     Set dir = GetDir(_.localRoot)[2];
     Set sel = EvalSet(GetDir(_.localRoot)[2], Real (Text subdir) {
-      If(TextMatch(subdir ,txtPattern), OSDirRemove(_.localRoot<<subdir), 0)
+      If(TextMatch(subdir ,txtPattern), {
+        Real OSDirRemove(_.localRoot<<subdir);
+      1}, 0)
     });
-    If(Card(sel), SetSum(sel), 0)
+    If(Card(sel), {
+      Real UpdateCatalog(?);
+      SetSum(sel)
+    }, 0)
   };
 
Index: tol/stdlib/TolPackage/def_catalog.tol
===================================================================
--- tol/stdlib/TolPackage/def_catalog.tol	(revision 293e01a745e60c70404745746f972fae7d8b4ecd)
+++ tol/stdlib/TolPackage/def_catalog.tol	(revision c363c8ff42b6e42d93ac26d2a3a169222f053c8a)
@@ -75,5 +75,5 @@
           If(TextLength(msg), msg<<" y", " para")<<" la fecha "<<date
         });
-        WriteLn("[[TolPackage::@Catalog "<<_.type
+        WriteLn("[TolPackage::@Catalog "<<_.type
           <<"] No se encuentra el paquete '"<<pattern<<"'"<<msg2<<".", wm);
           ""