diff -r a79002bd96bf -r 948a90b76e72 SnapShotImageMemory.st
--- a/SnapShotImageMemory.st	Wed Oct 25 15:41:47 2000 +0200
+++ b/SnapShotImageMemory.st	Wed Oct 25 17:56:38 2000 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'cg:private' }"
+"{ Package: 'stx:libtool' }"
 
 Object subclass:#SnapShotImageMemory
 	instanceVariableNames:'image stream msb ptrSize intSize intTag spaceInfos symbolEntries
@@ -22,13 +22,6 @@
 	privateIn:SnapShotImageMemory
 !
 
-Object subclass:#SpaceInfo
-	instanceVariableNames:'start end size flags imageBase'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:SnapShotImageMemory
-!
-
 SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
 	instanceVariableNames:'cachedContents'
 	classVariableNames:''
@@ -43,6 +36,13 @@
 	privateIn:SnapShotImageMemory
 !
 
+Object subclass:#SpaceInfo
+	instanceVariableNames:'start end size flags imageBase'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SnapShotImageMemory
+!
+
 
 !SnapShotImageMemory class methodsFor:'instance creation'!
 
@@ -813,58 +813,6 @@
     ^ byteSize
 ! !
 
-!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
-
-end
-    "return the value of the instance variable 'end' (automatically generated)"
-
-    ^ end!
-
-end:something
-    "set the value of the instance variable 'end' (automatically generated)"
-
-    end := something.!
-
-flags
-    "return the value of the instance variable 'flags' (automatically generated)"
-
-    ^ flags!
-
-flags:something
-    "set the value of the instance variable 'flags' (automatically generated)"
-
-    flags := something.!
-
-imageBase
-    "return the value of the instance variable 'imageBase' (automatically generated)"
-
-    ^ imageBase!
-
-imageBase:something
-    "set the value of the instance variable 'imageBase' (automatically generated)"
-
-    imageBase := something.!
-
-size
-    "return the value of the instance variable 'size' (automatically generated)"
-
-    ^ size!
-
-size:something
-    "set the value of the instance variable 'size' (automatically generated)"
-
-    size := something.!
-
-start
-    "return the value of the instance variable 'start' (automatically generated)"
-
-    ^ start!
-
-start:something
-    "set the value of the instance variable 'start' (automatically generated)"
-
-    start := something.! !
-
 !SnapShotImageMemory::ImageObject methodsFor:'method protocol'!
 
 byteCode
@@ -3575,6 +3523,9 @@
     ^ (self flags bitAnd:Behavior maskIndexType) ~= 0.
 !
 
+isVisualStartable
+    ^ false!
+
 isWords
     ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagWords.
 !
@@ -3627,6 +3578,58 @@
     ^ false 
 ! !
 
+!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
+
+end
+    "return the value of the instance variable 'end' (automatically generated)"
+
+    ^ end!
+
+end:something
+    "set the value of the instance variable 'end' (automatically generated)"
+
+    end := something.!
+
+flags
+    "return the value of the instance variable 'flags' (automatically generated)"
+
+    ^ flags!
+
+flags:something
+    "set the value of the instance variable 'flags' (automatically generated)"
+
+    flags := something.!
+
+imageBase
+    "return the value of the instance variable 'imageBase' (automatically generated)"
+
+    ^ imageBase!
+
+imageBase:something
+    "set the value of the instance variable 'imageBase' (automatically generated)"
+
+    imageBase := something.!
+
+size
+    "return the value of the instance variable 'size' (automatically generated)"
+
+    ^ size!
+
+size:something
+    "set the value of the instance variable 'size' (automatically generated)"
+
+    size := something.!
+
+start
+    "return the value of the instance variable 'start' (automatically generated)"
+
+    ^ start!
+
+start:something
+    "set the value of the instance variable 'start' (automatically generated)"
+
+    start := something.! !
+
 !SnapShotImageMemory class methodsFor:'documentation'!
 
 version