--- a/PackageId.st	Fri Dec 29 17:25:42 2006 +0100
+++ b/PackageId.st	Fri Dec 29 17:26:02 2006 +0100
@@ -194,8 +194,7 @@
 
     idx := packageIdString indexOf:$:.
     idx == 0 ifTrue:[
-        self error:'NoProject asked for its module' mayProceed:true.
-        ^ nil.
+        ^ packageIdString.
     ].
     ^ packageIdString copyTo:idx-1
 
@@ -205,7 +204,7 @@
     "
 
     "Created: / 18-08-2006 / 12:13:53 / cg"
-    "Modified: / 28-11-2006 / 11:38:53 / cg"
+    "Modified: / 27-12-2006 / 11:51:25 / cg"
 !
 
 parentPackage
@@ -233,5 +232,5 @@
 !PackageId class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PackageId.st,v 1.10 2006-12-06 15:26:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PackageId.st,v 1.11 2006-12-29 16:26:02 cg Exp $'
 ! !