--- a/String.st	Fri Aug 18 12:27:45 2006 +0200
+++ b/String.st	Fri Aug 18 12:28:41 2006 +0200
@@ -1731,6 +1731,16 @@
     "Modified: / 03-08-2006 / 14:45:32 / fm"
 !
 
+asPackageId
+    ^ PackageId from: self asSymbol
+
+    "
+     'stx:hello' asPackageId
+    "
+
+    "Created: / 18-08-2006 / 12:19:54 / cg"
+!
+
 asSingleByteString
     "I am a string"
 
@@ -3455,5 +3465,5 @@
 !String class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.239 2006-08-18 10:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.240 2006-08-18 10:28:41 cg Exp $'
 ! !