--- a/Smalltalk.st	Wed Oct 25 13:54:04 2006 +0200
+++ b/Smalltalk.st	Wed Oct 25 15:40:20 2006 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:5.3.2 on 24-10-2006 at 20:21:17'                     !
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Smalltalk
@@ -600,6 +598,7 @@
     Stdout reOpen. Stderr reOpen. Stdin reOpen.
 ! !
 
+
 !Smalltalk class methodsFor:'Compatibility-Squeak'!
 
 beep
@@ -913,52 +912,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'!
 
@@ -1901,15 +1854,6 @@
     ]
 ! !
 
-!Smalltalk class methodsFor:'inspecting'!
-
-inspectorClass
-    "{ Pragma: +optSpace }"
-
-    "redefined to launch a DictionaryInspector (instead of the default Inspector)."
-
-    ^ DictionaryInspectorView
-! !
 
 !Smalltalk class methodsFor:'message control'!
 
@@ -6833,14 +6777,14 @@
      ST/X revision Naming is:
         <major>.<minor>.<revision>.<release>"
 
-    ^ 1
+    ^ 2
 
     "
      Smalltalk releaseNr
     "
 
     "Created: / 10-12-1995 / 01:42:19 / cg"
-    "Modified: / 23-10-2006 / 16:55:44 / cg"
+    "Modified: / 25-10-2006 / 15:40:11 / cg"
 !
 
 revisionNr
@@ -6945,5 +6889,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.775 2006-10-24 18:27:42 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.776 2006-10-25 13:40:20 cg Exp $'
 ! !