EsString>>#abtIsCodeEquivalentTo: appears to be defective

EsString>>#abtIsCodeEquivalentTo: claims the following method sources are equivalent. The result is that the method is not recompiled with the new source code. I am generating the archival code and this method results in the old source being treated as the archival code. Consequently, when recreating the runtime code from the archival code, the subpart name is not correct. Conversely, the #connectGbxSessionManagerBrowser: is generated using the expected new subpart names and subsequently fails to find the appropriate subparts during execution.

It appears the error is only because the differences are separators.


Old:
'_windowSpec_addServicesOfGbxSessionManagerBrowserPartBuilder: aParentPartBuilder
    "Create the edit time part tree for the GbxCwMenuView."

    | aGbxCwMenuView |

    aGbxCwMenuView := GbxCwMenuView newSubpartBuilder.

    aGbxCwMenuView
         subpartBuilderNamed: ''Suspend Logins''
             put: (self _windowSpec_addSuspendLoginsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Resume Logins''
             put: (self _windowSpec_addResumeLoginsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Separator_1''
             put: (self _windowSpec_addSeparator_1PartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Stop
All Sessions''
             put: (self _windowSpec_addStopAllSessionsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Stop
Selected Session''
             put: (self _windowSpec_addStopSelectedSessionOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Separator_2''
             put: (self _windowSpec_addSeparator_2PartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Shut
Down Server''
             put: (self _windowSpec_addShutDownServerOfServicesPartBuilder: aGbxCwMenuView).

    ^aGbxCwMenuView'


New:
'_windowSpec_addServicesOfGbxSessionManagerBrowserPartBuilder: aParentPartBuilder
    "Create the edit time part tree for the GbxCwMenuView."

    | aGbxCwMenuView |

    aGbxCwMenuView := GbxCwMenuView newSubpartBuilder.

    aGbxCwMenuView
         subpartBuilderNamed: ''Suspend Logins''
             put: (self _windowSpec_addSuspendLoginsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Resume Logins''
             put: (self _windowSpec_addResumeLoginsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Separator_1''
             put: (self _windowSpec_addSeparator_1PartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Stop All Sessions''
             put: (self _windowSpec_addStopAllSessionsOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Stop Selected Session''
             put: (self _windowSpec_addStopSelectedSessionOfServicesPartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Separator_2''
             put: (self _windowSpec_addSeparator_2PartBuilder: aGbxCwMenuView);
         subpartBuilderNamed: ''Shut Down Server''
             put: (self _windowSpec_addShutDownServerOfServicesPartBuilder: aGbxCwMenuView).

    ^aGbxCwMenuView'