$ ./cprun Init
started
load class CP.StdLoader.StdLoader_Instance
installed
load class CP.HostFiles.HostFilesException in thread "main" java.lang.ClassNotFoundException: CP.HostFiles.HostFiles
   at java.net.URLClassLoader$1.run(URLClassLoader.java:202)
   at java.security.AccessController.doPrivileged(Native Method)
   at java.net.URLClassLoader.findClass(URLClassLoader.java:190)
   at java.lang.ClassLoader.loadClass(ClassLoader.java:307)
   at sun.misc.Launcher$AppClassLoader.loadClass(Launcher.java:301)
   at java.lang.ClassLoader.loadClass(ClassLoader.java:248)
   at CP.StdLoader.StdLoader_JavaLoader.loadClass(StdLoader.cp:24)
   at CP.StdLoader.StdLoader_Instance.LoadMod(StdLoader.cp:31)
   at CP.Kernel.Kernel.LoadMod(Kernel.cp:18)
   at CP.Init.Init.main(Init.cp:8)

Listing:

   1 MODULE Init;
**** ^ Compiler raised an internal exception
**** Exception: System.NullReferenceException: Object reference not set to an instance of an object
  at GPBinFiles.GPBinFiles.findOnPath (System.Char[] pathName, System.Char[] fileName) [0x00000]
  at NewSymFileRW.SymFileReader.Parse (IdDesc.BlkId scope) [0x00000]
  at NewSymFileRW.ImpResScope.ReadThisImport (IdDesc.BlkId imp) [0x00000]
  at NewSymFileRW.NewSymFileRW.WalkImports (Symbols.ScpSeq& imps, IdDesc.BlkId modI) [0x00000]
  at CPascalP.CPascalP.ImportList (IdDesc.BlkId modScope) [0x00000]
  at CPascalP.CPascalP.CPmodule () [0x00000]
  at CPascalP.CPascalP.Module () [0x00000]
  at CPascalP.CPascalP.Parse () [0x00000]
  at CPascal.CPascal.Compile (System.Char[] nam, System.Int32& retVal) [0x00000]
   2
   3         IMPORT CPmain, Kernel, StdLoader, StdApp;
   4
   5 BEGIN
   6         Kernel.Init;
   7         StdLoader.Init;
   8         Kernel.LoadMod('HostFiles');
   9         Kernel.LoadMod('HostApp');
  10         StdApp.Run;
  11 END Init.

There were:  1 error, and No warnings

PROCEDURE (h: Handler) Do* (op: INTEGER; f, g: Views.Frame; VAR msg: Views.CtrlMessage; VAR mark, front, req: BOOLEAN);
<...>   WITH msg: CursorMessage DO
            msg.x := msg.x + f.gx - g.gx;
            msg.y := msg.y + f.gy - g.gy
         ELSE
         END
<...>
   END Do;

 402                                 msg.x := msg.x + f.gx - g.gx;
**** This variable is read-only------^
 403                                 msg.y := msg.y + f.gy - g.gy
**** This variable is read-only------^

   PROCEDURE DoMy*(VAR m: MyMsg);
   BEGIN
      m.x:=0;
   END DoMy;

   PROCEDURE Do*(VAR m: Msg);
   BEGIN   
      WITH m: MyMsg DO
         m.x:=0;
      ELSE END;
   END Do;

  14                         m.x:=0;
**** ------------------------^ This variable is read-only