branch | jv |
changeset 18717 | f89688907327 |
parent 18608 | 7d521f25267c |
parent 18716 | b34a563006e9 |
child 20075 | 7f62aabd8dbf |
--- a/PackageId.st Mon Aug 24 06:57:43 2015 +0200 +++ b/PackageId.st Tue Aug 25 07:04:02 2015 +0200 @@ -165,11 +165,11 @@ |components| - (aString includes:$:) ifFalse:[ + (aString notEmptyOrNil and:[(aString includes:$:) not]) ifTrue:[ "/ assume its a path components := aString asFilename components. self module:components first directory:((components copyFrom:2) asStringWith:$/). - ] ifTrue:[ + ] ifFalse:[ packageIdString := aString asSymbol. ]