--- deliantra/server/server/genacc	2006/12/23 15:49:40	1.3
+++ deliantra/server/server/genacc	2006/12/25 11:25:49	1.4
@@ -1,5 +1,7 @@
 #! perl
 
+# actually geninterface
+
 my $class = shift;
 my $curclass = "";
 my (@scalar_member, @array_member);
@@ -18,7 +20,7 @@
             push @scalar_member, [$1, $2];
          }
       }
-      while (/ACC_CLASS\s*\((\S+)\)/g) {
+      while (/INTERFACE_CLASS\s*\((\S+)\)/g) {
          $curclass = $1;
       }
    }