[Help-smalltalk] Re: [bug] Class >> securityPolicy causes infinite loop

[Paolo Bonzini]

Issue status update for 
http://smalltalk.gnu.org/project/issue/181
Post a follow up: 
http://smalltalk.gnu.org/project/comments/add/181

Project:      GNU Smalltalk
Version:      <none>
Component:    Base classes
Category:     bug reports
Priority:     normal
Assigned to:  Unassigned
Reported by:  sdp
Updated by:   bonzinip
-Status:       active
+Status:       fixed

Just two methods with the wrong name:

diff --git a/kernel/Class.st b/kernel/Class.st
index 2aa5b6e..3dd4b39 100644
--- a/kernel/Class.st
+++ b/kernel/Class.st
@@ -541,12 +541,12 @@ the class category.'>
       aStream nextPutAll: (self nameIn: Smalltalk)
    ]

-    policy [
+    securityPolicy [
       
       ^securityPolicy
    ]

-    policy: aSecurityPolicy [
+    securityPolicy: aSecurityPolicy [
       
       securityPolicy := aSecurityPolicy withOwner: self
    ]