25 

    25 

    26     dirs := OrderedCollection new.

    26     dirs := OrderedCollection new.

    27     dirs add:'/usr/local/bin'.

    27     dirs add:'/usr/local/bin'.

    28     dirs add:'/usr/bin'.

    28     dirs add:'/usr/bin'.

    29     dirs add:(Filename homeDirectory constructString:'bin').

    29     dirs add:(Filename homeDirectory constructString:'bin').

    30     dirs add:'/tmp/stxbin'.

    33     dirs add:'/tmp/stxbin'.

    31     ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[

    34     ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[

    32         dirs add:'/home/stx/bin'.

    35         dirs add:'/home/stx/bin'.

    33     ].

    36     ].

    34     ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[

    37     ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[

    53     dirs add:'/usr/local/lib/smalltalk'.

    56     dirs add:'/usr/local/lib/smalltalk'.

    54     dirs add:'/usr/lib/smalltalk'.

    57     dirs add:'/usr/lib/smalltalk'.

    55     dirs add:((Filename homeDirectory 

    58     dirs add:((Filename homeDirectory 

    56                             construct:'lib')

    59                             construct:'lib')

    57                             constructString:'smalltalk').

    60                             constructString:'smalltalk').

    58     dirs add:'/tmp/stxlib'.

    65     dirs add:'/tmp/stxlib'.

    59     dirs add:'/home/stx/lib'.

    66     dirs add:'/home/stx/lib'.

    60     dirs add:'/home2/stx/lib'.

    67     dirs add:'/home2/stx/lib'.

    61 

    68 

    62 "/    dirs := dirs select:[:path | 

    69 "/    dirs := dirs select:[:path |