S := "
MODULE TmpMdl1;

   IMPORT StdLog;

PROCEDURE Hello*();
BEGIN
   StdLog.String('Hello world');
END Hello;

BEGIN
   Hello;
END TmpMdl1.";

Eval(S);

s:="MODULE MyMod; PROCEDURE Do*; BEGIN END Do; END MyMod.";
text:=TextModels.dir.NewFromString(s);
DevCompiler.CompileText (text, 0, error);
IF ~error THEN
   Dialog.Call("MyMod.Do", "error while loading", res);
   m:=Kernel.ThisLoadedMod("MyMod");
   IF m#NIL THEN Kernel.UnloadMod(m) END;
   Files.dir.Delete(Files.dir.This('My/Code'), 'Mod');
   Files.dir.Delete(Files.dir.This('My/Sym'), 'Mod');
END;