--- a/ExternalLibraryFunction.st	Mon Jun 09 19:25:17 2008 +0200
+++ b/ExternalLibraryFunction.st	Mon Jun 09 20:40:14 2008 +0200
@@ -108,6 +108,12 @@
 
 !ExternalLibraryFunction class methodsFor:'class initialization'!
 
+addToDllPath:aDirectoryPathName
+    "can be used during initialization, to add more places for dll-loading"
+
+    DLLPATH := self dllPath asOrderedCollection copyWith:aDirectoryPathName
+!
+
 dllPath
     ^ DLLPATH ? #( '.' )
 !
@@ -1333,7 +1339,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.62 2008-05-13 13:50:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.63 2008-06-09 18:40:14 cg Exp $'
 ! !
 
 ExternalLibraryFunction initialize!