diff --git a/basis/alien/libraries/libraries.factor b/basis/alien/libraries/libraries.factor
index b2ce66b02c..0d255b8d07 100755
--- a/basis/alien/libraries/libraries.factor
+++ b/basis/alien/libraries/libraries.factor
@@ -29,5 +29,6 @@ M: library dispose dll>> [ dispose ] when* ;
 : remove-library ( name -- )
     libraries get delete-at* [ dispose ] [ drop ] if ;
 
-: add-library ( name path abi -- )    
-    <library> swap libraries get [ delete-at ] [ set-at ] 2bi ;
\ No newline at end of file
+: add-library ( name path abi -- )
+    [ 2drop remove-library ]
+    [ <library> swap libraries get set-at ] 3bi ;
\ No newline at end of file