diff --git a/basis/alien/inline/compiler/compiler.factor b/basis/alien/inline/compiler/compiler.factor
index d049668eec..d7d2d6fc43 100644
--- a/basis/alien/inline/compiler/compiler.factor
+++ b/basis/alien/inline/compiler/compiler.factor
@@ -23,8 +23,7 @@ SYMBOL: C++
     } cond ;
 
 : library-path ( str -- str' )
-    '[ "lib" % "-" % _ % library-suffix % ]
-    "" make inline-library-file ;
+    '[ "lib" % _ % library-suffix % ] "" make temp-file ;
 
 : src-suffix ( lang -- str )
     {
diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 8ec0952c5a..20ccd43e5c 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -55,10 +55,13 @@ SYMBOL: c-strings
     compiler-args get
     c-strings get "\n" join
     c-library get compile-to-library ;
+
+: c-library-name ( name -- name' )
+    [ current-vocab name>> % "_" % % ] "" make ;
 PRIVATE>
 
 : define-c-library ( name -- )
-    [ current-vocab name>> % "_" % % ] "" make c-library set
+    c-library-name c-library set
     V{ } clone c-strings set
     V{ } clone compiler-args set ;
 
@@ -104,7 +107,8 @@ PRIVATE>
     ] 3bi ;
 
 : delete-inline-library ( str -- )
-    library-path dup exists? [ delete-file ] [ drop ] if ;
+    c-library-name [ remove-library ]
+    [ library-path dup exists? [ delete-file ] [ drop ] if ] bi ;
 
 SYNTAX: C-LIBRARY: scan define-c-library ;