diff --git a/gcc/java/ChangeLog b/gcc/java/ChangeLog
index d413096b2ec..28038889b8c 100644
--- a/gcc/java/ChangeLog
+++ b/gcc/java/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-08  Bryce McKinlay  <bryce@waitaki.otago.ac.nz>
+
+	* jcf-write.c (get_access_flags): Return correct access flags for 
+	private and protected inner classes.
+
 2002-08-08  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* java/Make-lang.in (java.mostlyclean): Remove coverage files.
diff --git a/gcc/java/jcf-write.c b/gcc/java/jcf-write.c
index dcf2397a9ec..076912505e5 100644
--- a/gcc/java/jcf-write.c
+++ b/gcc/java/jcf-write.c
@@ -683,6 +683,10 @@ get_access_flags (decl)
 	flags |= ACC_INTERFACE;
       if (CLASS_STATIC (decl))
 	flags |= ACC_STATIC;
+      if (CLASS_PRIVATE (decl))
+	flags |= ACC_PRIVATE;
+      if (CLASS_PROTECTED (decl))
+	flags |= ACC_PROTECTED;
       if (ANONYMOUS_CLASS_P (TREE_TYPE (decl))
 	  || LOCAL_CLASS_P (TREE_TYPE (decl)))
 	flags |= ACC_PRIVATE;