--- a/ObjFLoader.st	Fri May 19 02:32:23 1995 +0200
+++ b/ObjFLoader.st	Fri May 19 05:57:50 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.23 1995-05-19 00:32:23 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.24 1995-05-19 03:57:50 claus Exp $
 '!
 
 !ObjectFileLoader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.23 1995-05-19 00:32:23 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.24 1995-05-19 03:57:50 claus Exp $
 "
 !
 
@@ -936,6 +936,18 @@
 	Transcript showCr:'openDynamic: ' , pathName
     ].
 
+    "/ already loaded ?
+
+    LoadedObjects notNil ifTrue:[
+	handle := LoadedObjects at:pathName ifAbsent:nil.
+	handle notNil ifTrue:[
+	    Verbose ifTrue:[
+		Transcript showCr:'openDynamic: ' , pathName , ' already loaded.'.
+	    ].
+	    ^ handle
+	].
+    ].
+
     handle := self primOpenDynamicObject:pathName into:(Array new:2).
     handle isNil ifTrue:[
 	LastError == #notImplemented ifTrue:[