--- a/Class.st	Mon Oct 26 17:39:09 2009 +0100
+++ b/Class.st	Mon Oct 26 17:52:59 2009 +0100
@@ -431,6 +431,7 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+
 !Class methodsFor:'Compatibility-Dolphin'!
 
 defaultCategoryForDolphinClasses
@@ -1005,7 +1006,7 @@
 !
 
 package
-    "return the package-ID of the class"
+    "return the package-ID-Symbol of the class."
 
     |owner|
 
@@ -1021,7 +1022,7 @@
 !
 
 package:aSymbol
-    "set the package of the class."
+    "set the package-ID.Symbol of the class."
 
     |newPackage oldPackage|
 
@@ -1041,53 +1042,6 @@
     "Modified: / 09-08-2006 / 17:58:53 / fm"
 !
 
-packageInfo
-    "return the package-info of the class - or nil.
-     The packageManager contains information relevant to the package,
-     to which this class belongs - especially, things like pathes to
-     resources, additional files etc. can be optioned this way.
-     A packageInfo loosely relates to what a classLoader is in Java.
-     Experimental."
-
-    |packageId prj handle t|
-
-    packageId := self package.
-    packageId notNil ifTrue:[
-        prj := Project projectWithId:packageId.
-        prj notNil ifTrue:[^ prj].
-
-        "/
-        "/ intermediate kludge (will be removed)
-        "/ search for a loaded class library and extract
-        "/ information from it ...
-        "/
-        handle := ObjectFileLoader loadedObjectHandles
-                    detect:[:h | |cls|
-                        cls := h classes firstIfEmpty:nil.
-                        cls notNil and:[cls package = packageId]
-                    ]
-                    ifNone:nil.
-
-        handle notNil ifTrue:[
-            prj := Project new.
-            prj name:packageId.
-            prj directory:(handle pathName asFilename directory pathName).
-            prj package:packageId.
-            t := packageId asCollectionOfSubstringsSeparatedByAny:'/\:'.
-            prj repositoryModule:(t first).
-            prj repositoryDirectory:(packageId copyFrom:t first size + 2).
-            prj isLoaded:true.
-            ^ prj
-        ]
-    ].
-    ^ nil
-
-    "
-     Object packageInfo
-     OSI::FTAMOperation packageInfo
-    "
-!
-
 primitiveDefinitions:aString
     "{ Pragma: +optSpace }"
 
@@ -5039,9 +4993,9 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.557 2009-10-20 09:28:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.558 2009-10-26 16:52:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.557 2009-10-20 09:28:31 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.558 2009-10-26 16:52:59 cg Exp $'
 ! !