--- a/ObjFLoader.st	Mon Nov 28 21:58:48 1994 +0100
+++ b/ObjFLoader.st	Mon Feb 06 01:26:15 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.12 1994-11-22 00:23:49 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.13 1995-02-06 00:26:11 claus Exp $
 '!
 
 !ObjectFileLoader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.12 1994-11-22 00:23:49 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.13 1995-02-06 00:26:11 claus Exp $
 "
 !
 
@@ -71,7 +71,7 @@
 "
 ! !
 
-!ObjectFileLoader class primitiveDefinitions!
+!ObjectFileLoader primitiveDefinitions!
 
 %{
 /*
@@ -901,7 +901,7 @@
     |handle|
 
     LoadedObjects notNil ifTrue:[
-	LoadedObjects keysDo:[:aFileName |
+	LoadedObjects allKeysDo:[:aFileName |
 	    self unloadObjectFile:aFileName
 	]
     ].
@@ -1485,6 +1485,7 @@
 			    2: install class, methods and literals
 			    3: send #initialize to class
     "
+
     self callFunctionAt:initAddr forceOld:true arg:0.
     self callFunctionAt:initAddr forceOld:true arg:1.
     self callFunctionAt:initAddr forceOld:true arg:2.
@@ -1507,7 +1508,7 @@
     unsigned val;
     typedef void (*VOIDFUNC)();
     int savInt;
-    extern int _immediateInterrupt;
+    extern int __immediateInterrupt__;
     int prevSpace;
     int arg = 0;
 
@@ -1521,8 +1522,8 @@
 	/*
 	 * allow function to be interrupted
 	 */
-	savInt = _immediateInterrupt;
-	_immediateInterrupt = 1;
+	savInt = __immediateInterrupt__;
+	__immediateInterrupt__ = 1;
 
 	if (forceOld == true) {
 	    prevSpace = __allocForceSpace(OLDSPACE);
@@ -1532,7 +1533,7 @@
 	    (*addr)(arg COMMA_CON);
 	}
 
-	_immediateInterrupt = savInt;
+	__immediateInterrupt__ = savInt;
     }
 %}
 ! !