--- a/ByteCodeCompiler.st	Wed Aug 16 01:47:52 1995 +0200
+++ b/ByteCodeCompiler.st	Thu Aug 17 18:10:39 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 '!
 
 !ByteCodeCompiler class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.34 1995-08-15 23:47:30 claus Exp $
+$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.35 1995-08-17 16:10:07 claus Exp $
 "
 !
 
@@ -494,7 +494,11 @@
      This can be set from your private.rc file or from a workspace
      for selective compilation to machine code."
 
-    STCCompilation := how
+    |ret|
+
+    ret := STCCompilation.
+    STCCompilation := how.
+    ^ ret
 
     "
      Compiler stcCompilation:#always
@@ -1636,7 +1640,7 @@
     "
      load the objectfile
     "
-    handle := ObjectFileLoader openDynamicObject:oFileName.
+    handle := ObjectFileLoader loadDynamicObject:oFileName.
     handle isNil ifTrue:[
 	self parseError:'dynamic load failed - cannot compile primitive code' position:1.
 	^ #Error
@@ -1659,7 +1663,8 @@
 	specialInit:true
 	forceOld:true 
 	interruptable:false
-	argument:2.
+	argument:2
+	identifyAs:handle.
 
     "
      did it work ?