--- a/ParserFlags.st	Tue Feb 28 13:36:31 2012 +0100
+++ b/ParserFlags.st	Tue Feb 28 14:59:16 2012 +0100
@@ -254,6 +254,9 @@
     |key|
 
     PerMethodFlags isNil ifTrue:[^ true].
+    class isNil ifTrue:[^ true].
+    selector isNil ifTrue:[^ true].
+
     key := class name, '>>',selector.
     ^ PerMethodFlags at:key ifAbsent:true.
 
@@ -263,7 +266,7 @@
 reenableAllSuppressedFlags
     "turn off any suppressed warnings"
 
-    PerMethodFlags := false
+    PerMethodFlags := nil
 
     "Created: / 28-02-2012 / 12:59:08 / cg"
 ! !
@@ -2405,11 +2408,11 @@
 !ParserFlags class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.86 2012-02-28 12:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.87 2012-02-28 13:59:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.86 2012-02-28 12:36:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParserFlags.st,v 1.87 2012-02-28 13:59:16 cg Exp $'
 ! !
 
 ParserFlags initialize!