--- a/Smalltalk.st	Wed Aug 23 16:02:42 2006 +0200
+++ b/Smalltalk.st	Wed Aug 23 16:03:05 2006 +0200
@@ -592,7 +592,6 @@
     Stdout reOpen. Stderr reOpen. Stdin reOpen.
 ! !
 
-
 !Smalltalk class methodsFor:'Compatibility-Squeak'!
 
 beep
@@ -906,52 +905,6 @@
     "Created: 20.6.1997 / 16:58:28 / cg"
 ! !
 
-!Smalltalk class methodsFor:'binary storage'!
-
-addGlobalsForBinaryStorageTo:globalDictionary
-    |pools|
-
-    pools := Set new.
-
-    self keysAndValuesDo:[:key :value |
-        (key includes:$:) ifFalse:[       "/ skip classVars
-            (value ~~ self 
-            and:[value notNil]) ifTrue:[
-                value isClass ifTrue:[
-                    value addGlobalsForBinaryStorageTo:globalDictionary.
-                    pools addAll:value sharedPools
-                ] ifFalse:[
-                    globalDictionary at:(key->value) put:self
-                ].
-                value notNil ifTrue:[
-                    globalDictionary at:value put:self
-                ]
-            ]
-        ]
-    ].
-
-    pools do:[:poolDictionary|
-        poolDictionary addGlobalsForBinaryStorageTo:globalDictionary
-    ]
-
-    "Modified: 19.3.1997 / 18:15:25 / cg"
-    "Created: 21.3.1997 / 15:40:31 / cg"
-!
-
-storeBinaryDefinitionOf:anObject on:stream manager:manager
-    |string|
-
-    anObject class == Association ifTrue:[
-        string := 'Smalltalk associationAt: ', anObject key storeString
-    ] ifFalse: [
-        string := 'Smalltalk at: ', (self keyAtValue: anObject) storeString
-    ].
-    stream nextNumber:2 put:string size.
-    stream nextPutBytes:(string size) from:string startingAt:1.
-"/    string do:[:char | stream nextPut:char asciiValue]
-
-    "Modified: 19.3.1997 / 18:49:14 / cg"
-! !
 
 !Smalltalk class methodsFor:'browsing'!
 
@@ -4895,9 +4848,12 @@
     ^ false
 
     "
-     Smalltalk isClassLibraryLoaded:'libbasic'
-     Smalltalk isClassLibraryLoaded:'libwidg3'
-    "
+     Smalltalk isClassLibraryLoaded:'libstx_libbasic' 
+     Smalltalk isClassLibraryLoaded:'libstx_libwidg3' 
+     Smalltalk isClassLibraryLoaded:'libstx_libboss' 
+    "
+
+    "Modified: / 23-08-2006 / 15:54:46 / cg"
 !
 
 loadClassLibraryIfAbsent:name
@@ -6906,5 +6862,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.742 2006-08-21 08:07:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.743 2006-08-23 14:03:05 cg Exp $'
 ! !