--- a/ObjMem.st	Wed May 03 01:57:49 1995 +0200
+++ b/ObjMem.st	Wed May 03 17:30:50 1995 +0200
@@ -33,7 +33,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.38 1995-05-02 18:16:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.39 1995-05-03 15:30:06 claus Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -54,7 +54,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.38 1995-05-02 18:16:47 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.39 1995-05-03 15:30:06 claus Exp $
 "
 !
 
@@ -2259,17 +2259,13 @@
      savedRoot|
 
     viewsKnown := Display knownViews.
-    savedIdleBlocks := Display idleBlocks.
-    savedTimeoutBlocks := Display timeOutBlocks.
     savedTranscript := Transcript.
     savedRoot := RootView.
 
-    "a kludge: save image with modified knownViews, no idle- and timeoutblocks
+    "a kludge: save image with modified knownViews, 
      and also Transcript set to StdErr ..."
 
     Display knownViews:nil.
-    Display idleBlocks:nil.
-    Display timeOutBlocks:nil.
     RootView := nil.
 
     Transcript := Stderr.
@@ -2280,11 +2276,10 @@
     RootView := savedRoot.
     Transcript := savedTranscript.
     Display knownViews:viewsKnown.
-    Display idleBlocks:savedIdleBlocks.
-    Display timeOutBlocks:savedTimeoutBlocks
-
-    "ObjectMemory applicationImageOn:'draw.img' for:DrawTool selector:#start"
-    "ObjectMemory applicationImageOn:'pm.img' for:PMSimulator selector:#start"
+
+    "
+     ObjectMemory applicationImageOn:'draw.img' for:DrawTool selector:#start
+    "
 !
 
 minimumApplicationImageOn:aFileName for:startupClass selector:startupSelector
@@ -2314,8 +2309,10 @@
     OperatingSystem exec:(Arguments at:1)
 	   withArguments:#('smalltalk' '-i' 'temp.img') , (Arguments copyFrom:2)
 
-    "ObjectMemory minimumApplicationImageOn:'clock1.img' for:Clock selector:#start"
-    "ObjectMemory applicationImageOn:'clock2.img' for:Clock selector:#start"
+    "
+     ObjectMemory minimumApplicationImageOn:'draw1.img' for:DrawTool selector:#start
+     ObjectMemory applicationImageOn:'draw2.img' for:DrawTool selector:#start
+    "
 !
 
 stripImage
@@ -2331,5 +2328,15 @@
 	    aMethod category:#none 
 	]
     ].
+
+    "remove some developpers classes"
+
+    Smalltalk at:#Compiler put:Parser.
+    Smalltalk at:#Debugger put:MiniDebugger.
+    Smalltalk at:#Inspector put:MiniInspector.
+    Smalltalk at:#FileBrowser put:nil.
+    Smalltalk at:#SystemBrowser put:nil.
+    Debugger newDebugger.
+
     self garbageCollect
 ! !