PackageId.st
branchjv
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.
     ]