--- a/ObjectMemory.st	Fri Jul 20 14:32:04 2012 +0100
+++ b/ObjectMemory.st	Wed Jul 25 09:45:15 2012 +0100
@@ -5100,57 +5100,6 @@
     "Modified: 22.4.1997 / 23:42:59 / cg"
 !
 
-fullBinaryModuleInfo
-    "return a full collection of moduleInfo entries.
-     This returns a dictionary (keys are component names)
-     with one entry for each sub-component in all binary packages."
-
-    |modules|
-
-    modules := IdentityDictionary new.
-    self allBinaryModulesDo:[:entry |
-	|infoEntry
-	 id name type libName subModuleName module dynamic pathName t|
-
-	id := entry at:1.
-	subModuleName := (entry at:2) asSymbol.
-	libName := (entry at:4).
-	t := Timestamp fromOSTime:((entry at:5) * 1000).
-
-	id > 0 ifTrue:[
-	    dynamic := true.
-	] ifFalse:[
-	    dynamic := false.
-	].
-	libName isNil ifTrue:[
-	    type := #classObject
-	] ifFalse:[
-	    type := #classLibrary
-	].
-
-	"/ ... new:
-	infoEntry := BinaryModuleDescriptor
-			name:nil
-			type:type
-			id:id
-			dynamic:dynamic
-			classNames:(Array with:subModuleName)
-			pathName:nil
-			libraryName:libName
-			timeStamp:t.
-
-	modules at:subModuleName put:infoEntry.
-    ].
-    ^ modules
-
-    "
-     ObjectMemory fullBinaryModuleInfo
-    "
-
-    "Modified: 30.8.1995 / 17:29:30 / claus"
-    "Modified: 31.10.1996 / 13:58:44 / cg"
-!
-
 getVMIdentificationStrings
     "return a collection of release strings giving information
      about the running VM. This is for configuration management only.
@@ -5589,11 +5538,11 @@
 !ObjectMemory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.260 2012/03/26 17:02:56 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.261 2012/07/24 13:26:44 stefan Exp §'
 !
 
 version_SVN
-    ^ '$Id: ObjectMemory.st 10804 2012-04-13 13:18:13Z vranyj1 $'
+    ^ '$Id: ObjectMemory.st 10829 2012-07-25 08:45:15Z vranyj1 $'
 ! !
 
 ObjectMemory initialize!