WAApplication preferenceAt: and preferenceAt:put: apparently not symmetrical

[GoogleCodeExporter]

Evaluating the following expressions in a workspace results in a 'No
atribute named #deploymentMode error. Note that right before sending
#preferenceAt:put:, I send both #deploymentMode and #preferenceAt: without
error:

| dps |
 dps := OrderedCollection with: WADispatcher default.
 [dps isEmpty] whileFalse: [ | dp |
   dp := dps removeFirst.
   dp entryPoints do: [:ep |
       ep isApplication
           ifTrue: [
        (ep deploymentMode == (ep preferenceAt: #deploymentMode))
            ifFalse: [self error: 'incorrect preference'].
        ep preferenceAt: #deploymentMode put: true]
           ifFalse: [ep isDispatcher ifTrue: [dps add: ep]].
   ].
 ]. 

I am using the latest versions of all Seaside packages (Seaside-Core-pmm.140).

Original issue reported on code.google.com by henrichs...@gmail.com on 23 Apr 2008 at 8:40