* Fixed bug #8410, as suggested by zipfelvo

git-svn-id: trunk@6670 -

packages/base/ibase/ibase60.inc

@@ -2641,6 +2641,7 @@ begin
     begin
     If (LoadedLibrary<>LibraryName) then
       Raise EInoutError.CreateFmt(SErrAlreadyLoaded,[LoadedLibrary]);
+    inc(RefCount);
     Result:=True;
     end;  
 end;