diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index f1fa13c1d8..6a5dfe30df 100755
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -53,7 +53,7 @@ TUPLE: library path abi dll ;
     over dup [ dlopen ] when \ library boa ;
 
 : load-library ( name -- dll )
-    library dup [ library-dll ] when ;
+    library dup [ dll>> ] when ;
 
 : add-library ( name path abi -- )
     <library> swap libraries get set-at ;