How define single java class using kawa IO system?

[Yaroslav Kavenchuk <kavenchuk at gmail dot com>]

$ cat test2.scm
(define-simple-class test2 ()
 ((main (args :: <String[]>)) :: <void> allocation: 'static access: 'public
   (display "Hallo, World!\n")
   (force-output)))

$ javap test2
Compiled from "test2.scm"
public class test2 extends java.lang.Object{
   public static void main(java.lang.String[]);
   public test2();
}

$ java -cp "C:/JVM/kawa/kawa-1.9.3.jar;." test2
Exception in thread "main" java.lang.NullPointerException
       at 
gnu.mapping.InheritingEnvironment.lookupInherited(InheritingEnvironment.java:72)
       at 
gnu.mapping.InheritingEnvironment.getLocation(InheritingEnvironment.java:100)
       at gnu.mapping.Environment.getLocation(Environment.java:117)
       at gnu.mapping.ThreadLocation.getLocation(ThreadLocation.java:99)
       at gnu.mapping.ThreadLocation.get(ThreadLocation.java:132)
       at gnu.mapping.ConstrainedLocation.get(ConstrainedLocation.java:38)
       at gnu.mapping.Location.get(Location.java:65)
       at gnu.mapping.LocationProc.apply0(LocationProc.java:40)
       at kawa.lib.ports.display(ports.scm)
       at test2.main(test2.scm:3)

Thanks!

--
WBR, Yaroslav Kavenchuk.